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\section  { Introduction} 

Object-oriented  particles  simulation  project  assumes  an  interactive 
operation  under  PC  Windows.  This  brings  about  the  necessity  to  construct  a 
user-friendly  interface  and  develop  the  object-oriented  control  and 
interaction  of  the  parts  of  the  model.  Therefore,  while  addressing  the 
general  architecture  of  the  OO  model  one  should  forsee  the  interaction 
types  of  object  classes  not  only  within  the  model  functionality  itself 
but  also  interactions  between  GUI  classes,  manager  classes  and 
computational  classes  (Fig.  1).  The  first  goal  of  decompositions  is  to  separate 
control,  visualization  and  computation  parts,  thus  providing 
flexibility  and  extendibility  of  each  of  the  sections  irrespective  of 
each  other.  The  problem  is  simplified  by  already  existing  class  hierarchy 
for  the  interface  and  the  CUA  standard  supported,  in  particular,  by  OWL 
Borland  C++. 

\begin  {figure}  [bht] 
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\caption{Diagram  of  high-level  relationships.} 

\end{figure} 

The  00  programming  allows  description  of  the  numerical  model  made  of  objects 
containing  components  of  the  physical  task.  These  same  objects,  however, 
include  abstract  data  describing  the  solution  methods  of  the  numerical 
model.  Conventionally  when  writing  a  program  a  significant  part  of  the  code  is 
taken  by  the  input  information  detailing  physical  conditions  of  the  task  as 
well  as  by  the  selection  of  calculation  data.  Therefore,  in  developing  00-PIC 
we  used  an  approach  of  structural  differentiation  of  the  code  into  functional 
sections  coimected  with  operation  of  the  program.  Thus,  everything  relating 
to  input  of  initial  and  boundary  conditions  of  the  task  and  to  visualization 
of  information  in  our  method  is  presented  as  a  group  of  classes  CUI-interface 
and  visualization.  In  addition  to  these  the  program  makes  use  of  stream 
classes  to  save  information  on  the  model  and  the  obtained  data  with  the  help 
of  service  stream  classes.  Between  GUI  and  the  numerical  model  we  use  the 
objects  group  "Manager"  responsible  for  handling  messages  between  separate 
sections  of  the  program  and  systems  messages  between  OC  Windows  and  the 
program.  With  such  an  approach  at  hand  one  can  readily  organize  the  temporal 
cycle  of  the  task  outstanding  the  objects  describing  the  numerical  model. 

The  numerical  model  includes  description  of  the  task  geometry,  electrophysical 
data  and  the  numerical  algorithm.  Therefore,  while  developing  the  class 
"Model"  we  included  an  object  desribing  the  relevant  section.  Thiss  allows  us 
(within  one  and  the  same  approach  for  the  same  physical  models)  to  easily  modify 
the  section  in  the  oject  "Model"  which  is  connected  with  modification  of 
numerical  algorithms.  Utilization  in  the  code  of  several  objects  "Model" 
creates  an  opportunity  for  carrying  investigation  into  pptimization 
of  plasma  physics  models  and  numerical  algorithms. 


\section{Differential  Field  Equations} 


In  the  general  case  the  macroscopic  behavior  of  the  electromagnetic 
fields  of  a  continuous  medium  is  described  by  the  set  of  Maxwell's 
equations: 

\begin{eqnarray} 

\rot\vec{E}  &=&  -\partial\vec{B}/  \partial  t  -  \vec{K}  ,  \label{2. 1 }  W 
\dvg  \vec{B}  &=&  \rho_{m}  ,  \label{2.2} 

W  \rot  \vec{H}  &=&  \partial  \vec{D}/  \partial  t  +  \vec{J} , 

\label{2.3}  \\\dvg\vec{D}  &=&\rho_{e}  , 

\label{2.4} 

\end{eqnarray} 

where  $\vec  E$  and  $\vec  B$  are  the  electric  and  magnetic  fields, 
respectively.  The  electrostatic  and  magnetic  induction  are  defined  by  the 
vectors  $\vec  D$  and  $\vec  B$,  the  volume  densities  of  electric  and  magnetic 
currents  are  given  by  the  vectors  $\vec  J$  and  $\vec  K$,  and  the 
corresponding  space  charge  densities  are  denoted  by  $\rho_m$  and  $\rho_e$. 

Leaving  aside  the  philosophical  problems  concerning  the  interpretation 
of  the  above  equations  that  can  be  found  in  books  \cite{l}-\cite{9},  we  should 
note  that  in  some  cases  the  introduction  of  magnetic  currents  and 
charges  offers  a  convenient  formalism  that  makes  electric  and  magnetic 
fields  tantamount,  so  that  the  equations  become  symmetrical. 

Maxwell's  equations  for  a  continuous  medium  are  written  in  the  form 
\begin{eqnarray} 

\vec{D}  &=&  \hat{\varepsilon}  (E)  \vec{E} ,  \label{2.5}  W 

\vec{B}  &=&  \hat{\mu}  (H)  \vec{H} ,  \label{2.6} 

\end{eqnarray} 

where  the  $\hat\varepsilon$  and  $\hat\mu$  tensors  are,  in  the  general  case, 
nonlinear  functions  of  field  strength  and,  indirectly,  functions  of 
coordinates  and  time. 

Given  a  temporal  dispersion,  the  polarization  and  magnetization  of  the 
medium  at  a  given  time  are  determined  by  the  values  of  these  quantities 
at  preceding  times.  The  time  dependencies  of  the  tensors  are  given  by  the 
integral  equations 
\begin{eqnarray} 

\varepsilon(t)  =  \int\varepsilon(\tau)G_{l}(t-\tau)d\tau  ,  \label{2.7}  W 
\mu  (t)  =  \int  \mu  (\tau )  G_{2}(t-  \tau )  d  \tau  .  Mabel  {2.8} 

\end{eqnarray} 

The  nuclei  $G_l(t-\tau)$  and  $G  2(t-\tau)$  describe  the  relaxations  mechanisms 
of  polarization  and  magnetization  of  the  medium,  which  possesses  in  this 
case  a  sort  of  "memory". 

From  the  mathematical  point  of  view,  this  type  of  the  problem  is 
complicated  in  that  the  tensors  $\hat\varepsilon$  and  $Miat\mu$  are  not 
single- valued  functions  of  the  field  even  in  a  steady-state  treatment.  This  shows 
up  in  hysteretic  phenomena  and  substantially  dramatizes  the  problem 
concerning  the  solution  uniqueness. 

Written  in  the  above  form,  Eqs.  (\ref{2.5})  to  (\ref{2.8})  present  in  fact  a 
phenomenological  model  of  a  medium,  where  the  microfields  of  elementary 
charge  carriers  are  averaged  in  volumes  exceeding  the  atomic  sizes  and, 
the  more  so,  the  charge  carriers  {\em  per  se}. 


The  external  field  sources,  space  charges  and  currents  are  not 
absolutely  independent  quantities.  They  obey  the  conservation  laws 
formulated  as  continuity  equations: 

\begin{eqnarray} 

\partial  \rho_{e}Apartial  t  +  \dvg  \vec{J}  &=&  0  ,  \label{2.9}  W 
\partial  \rho_{m}Apartial  t  +  \dvg  \vec{K}  &=&  0  ,  \label{2.10} 
\end{eqnarray} 

and  the  relations  between  the  current  densities  in  the  medium  and  the 
field  characteristics  are  given  by  generalized  Ohm's  laws 
\begin{eqnarray} 

\vec{J}  &=&  \gamma_{e}(E)  \vec{E} ,  \label{2.11}  W 
\vec{K}  &=&\gamma_{m}(H)\vec{H}  .  \label{2.12} 

\end{eqnarray} 

The  electric  conductivity,  $\gamma_e(E)$,  and  magnetic  conductivity, 
$\gamma_m(H)$,  of 

a  medium  are  generally  nonlinear  tensors  like  $\varepsilon$  and  $\mu$. 

To  isolate  a  unique  solution  to  the  set  of  Eqs.  (\ref{2.1})— (\ref{2.4})  it  is 
necessary  to  formulate  the  boundary-value  problem  by  setting  boundary 
conditions  for  the  field  components  at  the  intermediate  boundaries: 
\begin{eqnarray} 

E_{\tau_+}  =  E_{\tau_-}  ,  \:\:  H_{\tau_+}  =  H_{\tau_-},  \label{2.13}  W 
D_{n_+}  =  b_{n_-} ,  \:\:  B_{n_+}  =  B_{n_-}  \nonumber 
\end{eqnarray} 

and  at  perfectly  conducting  surfaces: 

\begin{eqnarray} 

D_{n}  =  \sigma_{e} ,  \:\:  B  =  \sigma_{m},  \label{2.14}  W 
H_{\tau}  =  j_{e}  ,  \:\:  E_{\tau}  =  j_{m},  \nonumber 
\end{eqnarray} 

Here  the  indices  $\tau$  and  $n$  are  associated  with  tangential  and  normal 
field  components,  respectively,  and  $j_e$,  $j_m$,  $\sigma_e$,  and  $\sigma_m$ 
are  the  respective  densities  of  electric  and  magnetic  surface  currents  and 
charges.  The  signs  ”+"  and refer  to  different  sides  of  boundaries. 

For  the  impedance-type  boundaries,  whose  radii  of  curvature  are  large 
compared  to  the  skin  layer  thickness,  the  Leontovich  boundary 
conditions  are  valid,  which  relate  the  surface  current  densities  as 
follows: 

\begin{equatlon} 

\vec{K}  =  Z  [\vec{n}  \times\vec{J}  ] ,  \label{2.17} 

\end{equation} 

Here  $Z$  is  the  wave  impedance  of  the  conducting  surface. 

For  the  space  charges  and  currents,  it  is  necessary  to  set  their  initial 
$(t=0)$  distributions  in  volume  $V$: 

\begin  {  eqnarray } 

\rho_{e}  (r,t_0)  =  \rho_{eO}(r),  \:\: 

\rho_{m}  (r,t_0)  =  \rho_{mO}(r),  \:\:  r  \in  V,  \label{2. 15}  W 
\vec{J}  (r,t_0)  =  \vec  J_0(r),  \:\: 

\vec{K}  (r,t_0)  =  \vec  K_0(r),  \:\:  r  \in  V.  \label{2.16} 

\end{eqnarray} 

Given  dispersion  media,  it  is  necessary  to  prescribe  the  'prehistory'  for 


the  polarization  and  magnetization  of  the  medium  by  Eqs.  \ref{2.7}  and 
\ref{2.8}. 

In  some  cases,  it  appears  convenient  to  introduce  auxiliary  functions, 

such  us  scalar  potentials  $\phi_{e}$  and  $\phi_{m}$  and  vector  potentials  $A$ 

and  $F$  related  to  the  field  components  by  the  equations 

\begin{eqnarray} 

\vec{E}  =  -  \nabla  \phi_{e}  -  \partial  \vec{A}  /  \partial  t,  && 

\vec{D}  =  \rot  \vec{F}  ,  \label{2.18}  W 

\vec{H}  =  -  \nabla  \phi_{m}  -  \partial  \vec{F}  /  \partial  t,  && 

\vec{B}  =\rot\vec{A}. 

\end{eqnarray} 

In  order  that  the  introduced  quantities  be  singlevalued,  a  certain  gauge 
condition  should  by  applied  to  them.  For  example,  the  Lorentz  gauging 
is  described  by  the  equations 
\begin{eqnarray} 

\dvg  \vec{A}  +  \varepsilon\,\mu\,\partial\phi_eApartial  t  + 
\mu\,\gamma_e\phi_e  &=&  0,  Mabel {2. 19}  W 
\dvg  \vec{F}  +  \varepsilon\,\mu  \,\partial  \phi_mApartial  t  + 
\varepsilon\,\gamma_m\phi_m  &=&  0.  \nonumber 
\end{eqnarray} 

Having  performed  a  rotor  operation  on  Eqs.  \ref{2.1}  and  \ref{2.3},  we  obtain 
so-called  wave  equations  with  separated  characteristics  of  electric  and 
magnetic  fields; 

\begin{eqnarray} 

\rot  (\mu''{-l}  Mot  \vec{E})  +  \varepsilon  \,\partial^{2}  \vec{E}Apartial 
t^{2}  &=&  \partial  \vec{J}Apartial  t  +  \gamma_{e}  \partial  \vec{E}/ 

\partial  t,  Mabel {2. 20}  W 

Mot  (\varepsilon^{-l}  Mot  \vec{H})  +  \mu 

\,\partial^{2}  \vec{H}Apartial  t^{2}  &=&  \partial  \vec{K}Apartial  t  + 
\gamma_{m}  \partial  \vec{H}/  \partial  t .  \nonumber 
\end{eqnarray} 

If  we  introduce  a  symbolic  d'Alamberian  $\Box=MDelta-\partial^2Apartial 
t^2$,  where  $\Delta=d^2/dx^2+d^2/dy^2+d^2/dz^2$  is  Laplace's  operator, 
then  we  obtain  similar  wave  equation  for  the  fields  and  potentials: 
\begin{eqnarray} 

\Box\vec{E}  &=&  \mu  \,\frac{\partial}{\partial  t}  (\vec{J}  +\gamma_{e} 
\vec{E}) ,  \cr 

\Box\vec{H}  &=&\varepsilon\,\ffac{\partial}{\partialt}  (\vec{K}  + 
\gamma_{m}  \vec{H}) ,  \cr 

\Box\vec{A}  &=&  \mu\,  (\gamma_{e}  \ffac{\partial\vec{A}}{\partial  t}  - 
\vec{J}) ,  \cr 

MBox\vec{F}  &=&  \varepsilon\,  (\gamma_{m}  \frac{\partial  \vec{F}} 

{\partial  t}  -  \vec{K}) ,  Mabel{2.21}  W 
\Box  \phi_{e}  &=&  Mnu  \,\gamma_{e}  \frac{\partial  \phi}  {\partial  t}  - 
\frac{Mho_{e} }  {Warepsilon},  \cr 

VBox  \phi_{m}  &=&  Warepsilon  \,\gamma_{m}  \frac{\partial  \phi_{m}} 
{\partialt}  -  \frac{Mho_{m}}{Mnu}.  \nonumber 
\end{eqnarray} 


In  the  right-hand  sides  of  these  equations,  the  first  term  describes 


the  external  or  foreign  field  sources  and  the  second  one  the 
conduction  currents  of  the  medium.  The  potentials  $\vec  A$  and  $\vec  F$, 
$\phi_e$  and  $\phi_m$  are  not  independent,  as  the  field  strength  vectors 
are  related  to  the  induction  vectors  by  field  equations. 

The  introduction  of  one  or 

another  potential  couple  depends  on  the  statement  of  the  problem,  i.e.  on 
which  type  of  field  source,  electric  or  magnetic,  can  be  introduced  in  a 
more  convenient  manner. 

At  this  point  we  suppose  that  the  statement  of  the  problem  in  the  form  of  a 
set  of  Maxwell's  equations  is  completed  and  we  may  turn  to  the 
discussion  of  the  most  important  particular  cases.  Throughout  the 
subsequent  consideration  we  shall  deal  with  dispersion-free  media. 

First  of  all,  the  case  of  harmonic  oscillations  deserves  consideration, 
where  any  characteristic  of  the  field  or  the  source,  $T(r,t)$,  can  be 
expressed  as 
\begln{equation} 

T  (r,  t)  =  T_0(r)  \,e^{i\omega  t}  ,  \label{2.22} 

\end{equation} 

where  $T_0$  and  $\omega$  are,  respectively,  the  oscillation  amplitude 
and  frequency. 

Such  statements  are  typical  of  electrodynamic  systems  possessing 
pronounced  selective  or  resonance  capabilities,  such  as  waveguides, 
resonators,  and  slowdown  system  in  microwave  devices.  For  this  case 
Maxwell's  equations  take  the  form 
\begin{eqnarray} 

\rot\vec{E}_{0}  &=&  -i\omega\vec{B}_{0}  +\vec{K}_{0} , 

Mabel  {2.23}  W 

\rot\vec{H}_{0}  &=&  i\omega\vec{D}_{0}  +\vec{J}_{0}  .\nonumber 
\end{eqnarray} 

Using  two  remaining  equation,  Eqs.  (\ref{2.2})  and  (\ref{2,4}),  we  may 
represent  the  complete  set  of  equations  as  a  couple  of  second-order 
equations,  each  including  quantities  only  relevant  to  the  electric  field 
or  to  the  magnetic  field: 

\begin{eqnarray} 

\rot(\mu^{-l  }\rot\vec  E_0)  &=&  \omega\vec  D_0- 
i\omega\vec  J_0-\rot(\mu^{-l}\vec  K_0),  \label{2.24}  W 
\rot(\varepsilon^{-l}\rot\vec  H_0)  &=&  \omega\vec  B_0  - 
i\omega\vec  K_0+\rot(\varepsilon^{-l}  \vec{J}_{0}).\nonumber 
\end{eqnarray} 

For  piecewise  homogeneous  media  these  equations  can  be  simplified  to 
\begin{eqnarray} 

\rot\rot\vec  E_0  -  k^2\vec  E_0  &=&  {}  -  i\omega\mu\vec  J_0  - 
\rot\vec  K_0,  Mabel{2.25}  W 

\rot\rot\vec  H  O  -  k''2\vec  H  O  &=&  {}  -  i\omega\varepsilon\vec  K_0  + 

\rot\vec  J_0,  \nonumber 
\end{eqnarray} 

where  $k^2=\varepsilon\mu\omega^2=(\omega/c)''2$,  $\vec  k$  is  the  wave  vector 
and  $c$  is  the  velocity  of  propagation  of  electromagnetic  oscillations 
in  the  medium. 


With  the  above  assumptions,  the  finite  conductivity  of  the  medium  can  be 

taken  into  account  by  introducing  complex  quantities  marked  by  an  upper 

dot,  $\dot\varepsilon=\varepsilon-i\gamma_eAomega$, 

$\dot\mu=\mu-i\gamma_mAomega$,  the  relations  between 

the  field  strengths  and  the  sources  intensities  are  determined  by  formulas 

(\ref{2.11})and(\ref{2.12}). 

If  we  put  the  source  intensities  equal  to  zero,  nontrivial 

solutions  to  the  set  of  Eqs.  (\ref{2.25})  will  exist  only  for  fixed  $k$  or 

$\omega$  values.  So  the  problem  is  reduced  to  finding  the  eigenvalue  spectrum 

for  $k$  (or  resonance  frequency  $\omega$)  and  the  free  oscillation  modes 

described  by  the  Helmholtz  equations 

\begin{  equation} 

\begin  {array}  {rcl} 

\Delta  \vec{E}_{0}  +  k^{2}  \vec{E}_{0}  &=&  0,  W 
\Delta  \vec{H}_{0}  +  k"'{2}  \vec{H}_{0}  &=&  0  . 

\end{array}  \label{2.26} 

\end{equation} 

Note  that,  despite  the  fact  that  the  equations  for  the  electric  and 
magnetic  fields  are  separated,  this  nevertheless  does  not  mean  that 
they  are  independent  of  each  other,  since  in  an  oscillatory  mode  the 
electric  field  energy  is  continuously  converting  into  the  magnetic 
field  energy  and  vice  versa.  This  is  not  the  case  for  steady-state  or 
time-independent  fields. 

The  equations  for  static  fields  are  substantially  simplified,  as  they 
involve  no  time  derivatives,  and  can  be  separated  into  couples.  Let  us 
first  consider  the  magnetic  field  equations 
\begin{eqnarray} 

\dvg  \vec{B}  &=&  \rho_{m}  ,  \label{2.27}  W 

\rot\vec{H}  &=&\vec{J}  .  \label{2.28} 

\end{eqnarray} 

The  efficiency  of  one  or  another  algorithm  of  solving  the  problems  of 
magnetostatics  depends  essentially  on  the  details  of  the  problem  statement 
and  on  the  choice  for  the  unknown  quantities  fields,  vector  or  scalar 
potentials.  These  issues  are  treated  rather  comprehensively  in  review 
articles  \cite{10}— \cite{15}.  We  shall  only  give  a  brief  outline  of  these 
approaches. 

The  simplest  algorithm  involves  a  straightforward  solution  of  the  set  of 
Eqs.  (\ref{2.27})  and  (\ref{2.28})  jointly  with  field  equations 
\begin{equation} 

B_i=\mu_{ij}(H)HJ.  \label{2.29} 

\end{equation} 

This  technique  is  not  frequently  applied  because  of  its  high  cost. 

In  deriving  Eqs.  (\ref{2.29})  we  used  the  Einstein  rule  for  summation  over 
repeating  indices  that  will  be  frequently  used  in  the  subsequent 
discussion. 

A  more  widespread  approach  is  to  introduce  a  vector  potential  by  the 


relation  $\vec  B=\rot\vec  A$,  that  results  in  a  unique  second-order  equation 
\begin  {equation} 

\Delta  \vec{A}  =  -\mu  ( \vec{J}  +  \vec{J}_{m})  .  \label{2.30} 

\end{equation} 

Here  $\vec  J_ni=\rot\vec  M$  is  the  volume  density  of  the  magnetization  current 
for  the  medium,  $\vec  J$  is  the  density  of  the  conduction  current  for  the 
foreign  field  sources,  and  the  magnetization  vector  $\vec  M$  is  related  to 
$\vec  B$  and  $\vec  H$  as 
\begin{equatlon} 

\vec{B}  =\vec{H}  +\vec{M}  .  \label{2.31} 

\end{equation} 

Thus,  for  systems  including  constant  magnets  we  way  put  $\vec  J=0$,  while 
for  linear  media  we  have  $\vec  M=0$  and  $\vec  J_m=0$.  Arrange  the  boundary 
conditions  for  Eqs.  (\ref{2.30})  to  the  form 
\begin{equation} 

\vec{n}  \times  ( \rot\vec{A}_-i-  -  \rot\vec{A}_-  )  = 

\mu(\vec{j} +\vec{j}_m ) ,  \label{2.32} 

\end{equation} 

where  $\vec  j$  and  $\vec  j_m$  are  the  corresponding  surface  current. 

Using  a  scalar  magnetic  potential,  $\phi_m$,  such  that  $\vec 
H=-\nabla\phi_m$,  leads  to  quasilinear  equation  of  the  form 
\begin{equation} 

\ffac{\partial}{\partial  x_i}  \left(  \mu_{ij}  \frac{\partial\phi_m} 

{\partial  xJ}\right)=-\rho  \label{2.33} 

\end{equation} 

with  the  boundary  conditions  given  by 
\begin  {equation} 

\mu_+\frac{\partial\phi_m}{\partial  n_+}+\left(\vec  n  [ 

\vec  j\times\vec  n]\right)=\mu_-\frac{\partial\phi}  {\partial 
n_-}.\label{2.34} 

\end{equation} 

The  use  of  a  scalar  function  substantially  moderates  the  requirements  to 
the  computer  operative  memory  needed  to  remember  the 
values  of  the  unknown  variables,  being,  however,  not  free  from  some 
disadvantages.  The  principal  disadvantage  is  that  a  scalar  potential  is  not  a 
single-valued  function  in  a  space  incorporating  vortex  sources,  i.e. 
conduction  currents.  In  order  to  eliminate  this  defect,  an  intermediate 
boundary  is  introduced  into  the  space,  at  which  a  jump  in  $\phi_m$ 
proportional  to  the  total  excitation  current  of  the  magnetic  system  is 
specified. 

Most  widely  used  in  practice  is  the  method  of  a  modified  scalar 
potential  $\psi_m$  introduced  by  the  relationship 
\begin{equation} 

\vec{H}  =  \vec{H}_{0}  -  \nabla  \psi_{m}  .  \label{2.35} 

\end{equation} 

Here  the  total  field  $\vec  H$  consists  of  the  vortex  component  $\vec  H_0$ 
excited  by  the  given  conduction  current  $\vec  J=\rot\vec  H_0$  and  the 
potential  components  described  by  a  function  $\psi_m$  obeying  the  equation 
\begin{equation} 

\dvg(  \mu\nabla\psi_m  )  =  \dvg  ( \mu\vec{H}_0  ) .  \label{2.36} 


\end{equation} 

In  such  a  model  a  nonlinear  boundary  problem  is  solved  only  for  the 
region  filled  with  a  magnetized  medium,  while  the  quantity  $\vec  H_0$  involved 
in  the  right-hand  side  of  the  equation  is  calculated  by  integration 
over  the  volume  occupied  by  conduction  currents: 

\begin{equation} 

\vec{H}_{0}(r)  =  \ffac{l}{4\pi}  \int_{V}  \frac{[\vec{J}  \times 
\vec{r}\,]}  {|\vec{r}  -  \vec{r}\,'|}\,  dV,  \:\:\vec{r}V  \in  V.  \label{2.37} 
\end{equation} 

The  simplest  form  is  taken  by  the  equations  of  electrostatics  for  linear 
piecewise  homogenous  media,  which  transform  into  the  Laplace's  equation 
\begin{equation} 

\Delta\phi  =  0.  \label{2.38} 

\end{equation} 

The  Dirichlet  conditions 
\begin{equation} 

\phi  L{S_0}  =  \phi_0(r)  \label{2.39} 

\end{equation} 

are  set  at  the  surfaces  of  the  conducting  electrodes,  while  at  the 

boundary  between  two  media  having  dielectric  constants  $\varepsilon_+$  and 

$\varepsilon_-$  the  continuity  conditions  for  the  normal  component  of  the 

electrostatic  induction  vector 

\begin{equation} 

\varepsilon_-i-\ffac{\partial\phi}{\partial  n}|_{S_+}  =  \varepsilon_- 
\ffac{\partial\phi}{\partial  n}|_{S_-}  \label{2.40} 

\end  {equation} 
is  satisfied. 

The  current  passage  through  a  medium  having  a  finite  conductivity  is 

described  by  the  equation 

\begin{equation} 

\frac{\partial}{\partial  X  {i}}  \left(\gamma  {ij}  \frac{\partial  \phi} 

{\partial  x_{j} }  \right)  =  0  ,  Mabel {2.41 } 

\end{equation} 

where  the  conductivity  tensor  for  the  medium,  $Miat\gamma$,  is  related  to  the 
current  density  by  the  expression  $J_i=-\gamma_{ij}\partial\phiApartial  xj$. 

Statements  of  electric  elasticity  and  magnetic 

thermoelasticity  problems  can  be  found  in  articles  by  Bitsadze  \cite{16} 
and  Rukhadze  \cite  { 1 7 } . 


\section  {Algorithms  for  Numerical  Solution  the  Problems  of 
Electrodynamics} 

For  a  finite  difference  approximation  of  Maxwell's  equations  (\ref{2.1})  and 
(\ref{2.3}),  the  great  diversity  of  double-layer  schemes  applied  for  solving 
the  evolution  problems  can  be  classified  as  explicit  schemes  described  by 
the  equations 
\begin{eqnarray} 

B^{n+l/2}  &=&  B^{n-l/2}  +  \tau  ( \rot  E''{n}  -  K^{n}  ) ,  \nonumber  W  && 


\label{3.1}\\ 

E^{n+1}  &=&  E^{n}  +  \tau  ( -rot  B^{n+l/2}  -  J''{n-t-l/2}  )  \nonumber 
\end{eqnarray} 

and  implicit  schemes  described  by  the  equation 
\begin{eqnarray} 

B^{n+l}_{k+l}  &=&  B^{n}  +  \tau  (\rot(E'^{n+l}_k  +  E^n)  -  K''{n+l/2} ) , 

\nonumber  W  && 

\label{3.2}  W 

E^{n+l}_{k+l}  &=&  E^{n}  +\tau(-\rot(  B^{n+l}_{k}  +  B^{n} )  -  r{n+l/2} ). 

\nonumber 

\end{eqnarray} 

Here  the  superscript  denotes  the  number  of  time  steps.  The  Lack's 
time-centered  explicit  scheme,  when  applied  to  hyperbolic  equation  sets 
like  Eq.  (\ref{3.1}),  is  of  the  second-order  accuracy.  It  is  stable  when  the 
Courant  condition  $\tau/h<l$,  where  $\tau$  is  the  step  of  discretization  in 
time  and  $h  =  ( h^{-2}_{x\,\min}  +  h''{-2}_{y\,\min}  +  h^{-2}_{z\,\min}  )^{-l/2}$ 
is  the  step  of  discretization  in  spatial  variables  is  satisfied. 

Here  the  superscript  denotes 

the  number  of  time  steps.  The  idea  of  applying  these  schemes  to  Maxwell's 
equations  was  proposed  by  Yee  \cite{42}.  So  stringent  conditions  for 
stability  result  in  that  most  of  versions  of  this  scheme  use  a  uniform 
spatial  grid. 

The  implicit  scheme,  Eqs.  (\ref{3.2})  is  absolutely  stable.  However, 
it  requires  inner  iterations  at  each  time  step  marked  with  a 
subscript.  The  initial  values  of  variables  in  iterations  may  be  set 
equal  to  the  corresponding  values  at  the  preceding  time  step,  e.g. 

$E_l^{n+l  }=E'''ni  As  pointed  out  in  Ref.  \cite{43},  in  order  to  attain  the 
convergence  to  a  relative  accuracy  of  $10^{-3}$,  four  to  nine  iterations 
are  needed.  Application  of  explicit  schemes  may  be  recommended  for  the 
simulation  of  the  motion  of  ultrarelativistic  particles  as  well  as  for 
systems  whose  state  is  close  to  physical  instability. 

\subsection{Three-Dimensional  Fields} 

Let  us  write  an  explicit  scheme  in  a  Cartesian  coordinate  system  with 
shifted  grids,  which  is  of  the  second-order  accuracy  both  in  time  and  in 
spatial  variables  and  was  used  in  most  of  the  relevant  computations 
\cite{44}-\cite{61}.  This  scheme  uses  a  uniform  grid 

x_{i}  =  (i-1)  h_{x}  \}  \times  \{  y_{j}  =  (j-l)  h_{y}  \}  \times 
\{  z_{k}  =  (k-1)  h_{z}  \}  \times  \{  \tau_{n}  =  (n-1)  h_{\tau}  \}$, 
such  that 
\begin{eqnarray} 

\frac{(  E_{x}  r{n+l}_{i-l/2J,k}  -  (  E_{x}  r{n}_{i-l/2j,k}}{\tau}  = 

\frac{(B_{z}  r{n+l/2}_{i-l/2j+l/2,k}  -  ( B_{z}  r{n+l/2}_{i-l/2J-l/2,k}}{h_{y}}  WnumberW 
-\frac{(B_{y}  r{n+l/2}_{i-l/2j,k+l/2}  -(B_{y}  r{n+l/2}_{i-l/2J,k-l/2}}{h_{z}} 

-  ( J_{x}  r{n+l/2}_{i-l/2,j,k}  ,  \label{3.3}  W 

\frac{(E_{y}  r{n+l}_{ij-l/2,k}  -(EJy)  r{n}_{ij-l/2,k}}{\tau}  = 

\frac{(B_{x}  r{n+l/2}_{iJ-l/2,k+l/2}  -(B_{x}  r{n+l/2}_{ij-l/2,k-l/2}}{h_{z}}  \nonumber\\ 

-  \frac{(  B_{z}  r{n+l/2}_{i+l/2J-l/2,k}  -  (  B_{z}  )''{n+l/2}_{i-l/2J-l/2,k}}{h_{x}} 

-  ( L{y}  r{n+l/2}_{ij-l/2,k}  ,  \label{3.4}  W 

\frac{(  E_{z}  r{n+l}_{iJ,k-l/2}  -  ( E_{z}  r{n}_{i,j,k-l/2}}{\tau}  = 

\frac{(B_{y}  r{n+l/2}_{i+l/2J,k-l/2}  -(B_{y}  )^{n+l/2}_{i-l/2J,k-l/2}}{h_{x}}  \nonumber\\ 

-  \frac{(  B_{x}  )^{n+l/2}_{ij+l/2,k-l/2}  -  ( B_{x}  )'''{n+l/2}_{iJ-l/2,k-l/2}}  {h_{y}} 


-  (  J_{z}  r{n+l/2}_{i,j,k-l/2}  ,  \label{3.5}  W 

\frac{(B_{x}  )^{n+l/2}_{y-l/2,k-l/2}  -  ( B_{x}  nn-l/2}_{ij-l/2,k-l/2}}{\tau}  = 
\frac{(  E_{y}  )"'{n}_{i,j-l/2,k}  -  ( E_{y}  )^{n}_{ij-l/2,k-l}}{h_{z}}  \nonumber\\ 
-\frac{(E_{z}  r{n}_{ij,k-l/2}  -  (  E_{z}  r{n}_{ij-l,k-l/2}}{h_{y}} 

-  ( K_{x}  r{n}_{iJ-l/2,k-l/2} ,  \label{3.6}  W 

\frac{(B_{y}  r{n+l/2}_{i-l/2j,k-l/2}  -  ( B_{y}  r{n-l/2}_{i-l/2J,k-l/2}}{\tau}  = 
\frac{(E_{z}  )^{n}_{iJ,k-l/2}  -(E_{z}  )'^{n}_{i-lj,k-l/2}}{h_{x}}  \nonumber\\ 

-  \frac{(  E_{x}  r{n}_{i-l/2J,k}  -  (  E_{x}  r{n}_{i-l/2J,k-l}}{h_{z}} 

-  ( K_{y}  r{n}_{i-l/2J,k-l/2}  ,  \label{3.7}\\ 

\frac{(B_{z}  )^{n+l/2}_{i-l/2J-l/2,k}  -(BJz}  r{n-l/2}_{i-l/2J-l/2,k}}{\tau}  = 
\frac{(  E_{x}  )'^{n}_{i-l/2J,k}  -  ( E_{x}  )''{n}_{i-l/2,j-l,k}}{h_{y}}  WnumberW 

-  \frac{( E_{y}  r{n}_{ij-l/2,k}  -  ( E_{y}  r{n}_{i-l,j-l/2,k}}{h_{x}} 

-(K_{z}  r{n}_{i-l/2j-l/2,k}  .  \label{3.8} 

\end{eqnatTay} 

\subsection{Plane  Symmetric  Fields} 

The  case  of  plane  symmetrical  fields  characteristic  of  uniform  waveguides  of 
any  cross  section  is  analyzed  using  the  limit  $h_z\Rightarrow\mfty$  and 
removing  the  indices  corresponding  to  the  coordinate  $z$: 

\begin{eqnarray} 

\ffac{(  E_{x}  )^{n+l}_{i-l/2J}  -  ( E_{x}  )^{n}_{i-l/2J}}{\tau}  &=& 

-  ( J_{x}  )^{n+l/2}_{i-l/2 j}  \nonumber  W  &+& 

\fi-ac{(  B_{z}  )^{n+l/2}_{i-l/2J+l/2}  -  ( B_{z}  )^{n+l/2}_{i-l/2j-l/2}}{h_{y}} 
,\label{3.9}\\ 

\frac{(  E_{y}  )^{n+l}_{i,j-l/2}  -  ( E_{y}  r{n}_{ij-l/2}}{\tau}  &=& 

-  ( J_{y}  )''{n+l/2}_{i,j-l/2}  WnumberW 

&-&\frac{(B_{z}  )^{n+l/2}_{i+l/2j-l/2}  -  (  B_{z}  )'^{n+l/2}_{i-l/2J-l/2}}{h_{x}} 
,\label{3.10}  W 

\fi-ac{(  E_{z}  )'"{n+l}_{ij}  -  ( E_{z}  r{n}_{ij}}{\tau}  &=& 

\frac{(B_{y}  r{n+l/2}_{i+l/2J}  -  (  BJy}  r{n+l/2}_{i-l/2j}}{h_{x}} 

-  ( J_{z}  )''{n+l/2}_{ij}  WnumberW 

&-&  \tfac{(  B_{x}  )^{n+l/2}_{iJ+l/2}  -  ( B_{x}  r{n+l/2}_{ij-l/2}}{h_{y}} 
,\label{3.11}  W 

\firac{(  B_{x}  r{n+l/2}_{iJ-l/2}  -  ( B_{x}  )''{n-l/2}_{ij-l/2}}{\tau}  &=& 

-  \ffac{(  E_{z}  )^{n}_{ij}  -  (  E_{z}  r{n}_{ij-l}}{h_{y}}  WnumberW 
&&  -  (  K_{x}  )^{n}_{iJ-l/2}  ,  \label{3.12} 

\end{eqnarray} 

\begin{eqnarray} 

\fi-ac{(B_{y}  r{n+l/2}_{i-l/2J}  -(B_{y}  r{n-l/2}_{i-l/2J}}{\tau}  &=& 

■  ( K_{y}  )^{n}_{i-l/2,j}  Wnumber  W 

&+&  \ffac{(  E^{z}  r{n}_{ij}  -  ( E_{z}  r{n}_{i-l  j}}{h_{x}} 

,\label{3.13}  W 

\frac{(  B_{z}  )^{n+l/2}_{i-l/2J-l/2}  -  ( B_{z}  r{n-l/2}_{i-l/2J-l/2}}{\tau}  &=& 
\frac{(E_{x}  )^{n}_{i-l/2,j}  -  (E_{x}  )'^{n}_{i-l/2J-l}}{h_{y}}  WnumberW 

-  \frac{(  E_{y}  r{n}_{iJ-l/2}  -  ( E_{y}  r{n}  Ji-l,j-l/2}}{h_{x}} 

&-&  (K_{z}  nn}_{i-l/2J-l/2}  .  \label{3.14} 

\end{eqnarray} 

\subsection {Axially  Symmetric  Fields} 

For  a  cylindrical  coordinate  system  $(r,\phi,z)$  with  the  assumption  that 

$\partialApartial\phi\equivO$  we  have  the  scheme 

\begin{eqnarray} 


\frac{(  E_{r}  r{n+l}_{i-l/2J}  -  ( E_{r}  r{n}_{i-l/2j}}{\tau}  &=& 

-  (  J_{r}  )^{n+l/2}_{i-l/2j}  WnumberW  &+& 

\frac{(B_{\phi}  )^{n+l/2}_{i-l/2J+l/2}  -(B_{\phi}  r{n+l/2}_{i-l/2J-l/2}}{h_{z}} 

,  \label{3.15}  W 

\frac{(  E_{z}  r{n+l}_{i,j-l/2}  -  ( E_{z}  r{n}_{i,j-l/2}}{\tau}  &=& 

-  ( J_{z}  )^{n+l/2}_{iJ-l/2}  -  WnumberW 

-  [  r_{i+l/2}(  B_{\phi}  r{n+l/2}_{i+l/2 j-1/2}  &-&  r_{i-l/2} 

( B_{\phi}  r{n+l/2}_{i-l/2J-l/2}  ]  /  ( r_{i}h_{r}  ) ,  \!abel{3.16}  W 
\frac{(  E_{\phi}  r{n+l}_{ij}  -  (  E_{\phi}  )''{n}_{ij}}{\tau}  &=& 

\frac{(  B_{r}  r{n+l/2}_{i+l/2J}  -  ( B_{r}  r{n+l/2}_{i-l/2J}}{h_{z}} 

-  ( J_{\phi}  )^{n+l/2}_{ij}  Wnumber  W 

&-&\frac{(B_{z}  r{n+l/2}_{iJ+l/2}  -(BJz}  )'^{n+l/2}_{ij-l/2}}{h_{r}} 
,\label{3.17}  W 

\frac{(B_{r}  )^{n+l/2}_{ij-l/2}  -(B_{r}  r{n-l/2}_{ij-l/2}}{\tau}  &=& 

-  \frac{(  E_{\phi}  )^{n}_{ij}  -  ( E_{\phi}  )^{n}_{ij-l}}{h_{z}}  WnumberW 
&-&  (  K_{r}  )^{n}_{iJ-l/2}  ,  \label{3.18}  W 

\frac{(.B_{z}  )^{n+l/2}_{i-l/2j}  -  ( B_{z}  r{n-l/2}_{i-l/2,j}}{\tau}  &=& 

-  ( K_{z}  )^{n}_{i-l/2J}  WnumberW &+& 

\frac{r_{i}(  E_{\phi}  )'^{n}_{ij}  -  r_{i-l}(  E_{\phi}  r{n}_{i-l  j}}{r_{i-l/2}h_{z}} 
,\label{3.19}  W 

\frac{(  B_{\phi}  )'^{n+l/2}_{i-l/2J-l/2}  -  ( B_{\phi}  )''{n-l/2}_{i-l/2J-l/2}}{\tau}  &=& 
\frac{(  E_{r}  )^{n}_{i-l/2J}  -  ( E_{r}  )^{n}_{i-l/2j-l}}{h_{z}}  WnumberW 

-  \frac{(  EJz}  r{n}_{ij-l/2}  -  ( E_{z}  r{n}_{i-l,j-l/2}}{h_{r}} 

&-&(K_{\phi}  )^{n}_{i-l/2j-l/2}  .\label{3.20} 

\end{eqnarray} 

By  passing  the  limit,  we  obtain  for  the  axis  of  symmetry: 

\begin  {equation} 

( E_{z}  r{n+l}_{l,k-l/2}  -  ( E_{z}  r{n}_{l,k-l/2}  =\ffac{4 \,  \tau  }{h_{r}} 

( B_{\phi}  )^{n+l/2}_{3/2,k-l/2}  -  4  \,  \pi  \tau  ( J_{z}  )''{n+l/2}_{l,k-l/2}  . 

\label{3.21} 

\end{equation} 

\subsection{  Approximation  of  Boundary  Conditions} 

The  principal  disadvantage  of  rectangular  grids  is  that  the  boundary  of 
the  simulation  region  for  any  actual  problem  does  not  conform  to  the 
grid,  i.e.,  does  not  lie  along  the  grid  lines  or  parallel  to  them. 

The  roughest  model  for  taking  into  account  boundary  conditions 
approximates  the  actual  boundary  by  a  polygonal  line  consisting  of 
segments  that  run  along  the  grid  lines  as  close  to  the  actual  boundary 
as  possible.  The  perfectly  conducting  boundaries,  the  tangential 
components  of  the  electric  field,  and  the  normal  components  of  the  magnetic 
field  at  corresponding  points  of  the  approximated  boundary  are  set  to  be 
zero  for  each  time  step.  An  analysis  of  the  properties  of  the 
difference  scheme  shows  that  with  such  an  approximation  of  boundary 
conditions  the  scheme  as  a  whole  has  the  first  rather  than  second  order 
of  convergence,  if  only  there  exits  just  one  segment  of  the  actual 
boundary  that  does  not  coincide  with  the  grid  lines. 

By  contrast,  at  the  axis  of  symmetry  and  in  the  planes  of  symmetry 
of  the  solution  the  normal  components  of  the  electric  field  and  the 
tangential  components  of  the  magnetic  field  are  set  to  be  zero. 


It  appears  more 


complicated  to  analyze  the  conditions  for  emission  of  an  electromagnetic  wave 
from  boundary.  They  result  in  simple  expressions  only  in  the  case  when  the 
TEM  wave  is  normally  incident  on  a  boundary  segment  that  coincides  with 
a  grid  line.  For  instance,  for  a  wave  propagating  in  a  coaxial  along  the 
$z$  axis  in  the  positive  direction  these  conditions  in  a  cylindrical 
coordinate  systems  have  the  form 
\begin  {equation} 

B_r  =  -E_\phi,\quad  B_\phi  =  E_r,\quad  E_z  =  B_z  =  0.  Mabel  {3. 22} 
\end{equation} 

For  a  wave  striking  the  boundary  at  an  angle  these  conditions  will  not 
be  exact.  In  order  to  diminish  the  effect  of  the  inexactness  of  the 
boundary  conditions  for  an  inclined  incident  wave,  open  boundaries 
should  be  placed  at  a  distance  from  the  region  of  charged 
particle-field  interaction  or  separated  from  this  region  by  areas  of 
finite  conductivity,  which  well  absorb  radiation.  Conditions  {\ref{3.22})  are 
approximated  by  the  finite-difference  equations 
\begin{eqnarray} 

( B_{r}  r{n+l/2}_{i,k+l/2}  +  ( B_{r}  r{n-l/2}_{i,k-l/2}  &=& 

-  2  \,  ( E_{\phi}  r{n}_{i,  k}  ,  Mabel{3.23}  W 

(B_{\phi}  )^{n+l/2}_{i-l/2,k+l/2}  +  ( B_{\phi}  )^{n-l/2}_{i-l/2,k-l/2}  &=& 
2  \,  ( E_{r}  r{n}_{i-l/2,k}  ,  Mabel{3.24}  W 

( E_{z}  )^{n}_{i,k+l/2}  +  (  E_{z}  r{n}_{i,k-l/2}  &=&  0 ,  Mabel{3.25}  W 
( B_{z}  r{n+l/2}_{i-l/2,k+l/2}  +  (  B_{z}  r{n+l/2}_{i-l/2,k-l/2}  &=&  0  . 
Mabel{3.26} 

\end{eqnarray} 

Here  the  index  $k$  at  the  boundary  is  assumed  to  be  fixed. 

Engquist  and  Majda  \cite{62}  and  Mur  \cite{63}  considered  boundary  conditions 
of  the  absorbing  type  for  the  case  of  an  arbitrary  position  of  the  wave 
incident  on  a  plane  boundary. 

Let,  for  instance,  a  plane  wave  having  the  velocity  components  $c_x$,  $c_3'$, 
and  $c_z$  such  that  $c_x'^2+c_y^2+c_z^2=c''2$  be  incident  in  the  direction  of 
decreasing  of  the  coordinate  $x$.  Then  for  the  plane  $x  =  0$  any 
component  of  the  field  $W$  satisfies  the  wave  equation 
\begin{equation} 

Meft(\partial_x  -  \frac{\sqrt{l  -  (c/c_y)^2  -  (c/c_z)^2}}{c} 

\partial_t  fright)  W  |_{x  =  0}  =  0  .  Mabel (3. 27} 

\end{equation} 

Expanding  the  square  root  into  a  series,  we  obtain  boundary  conditions 

of  the  first  order 

\begin{equation} 

Meft(\partial_x  -  \frac{  1 }  {c}  \partlal_t  fright)  W  [  {x  =  0}  =  0  Mabel{3.28} 

\end{equatlon} 

and  the  second  order 

\begin  {equation} 

Meft(\partial''2_{xt}  -\frac{l}{c}  \partiat^2_{tt}  +\frac{c}{2} 

(\partial^2_{yy}  +  \partial^2_{yy}  )fright)  W  |_{x  =  0}  =  0.  Mabel{3.29} 
\end{equation} 

These  equations  can  be  substantially  simplified  for  a  two-dimensional 
case.  Consider,  for  instance,  a  field  independent  of  $z$  and  an 


$E$-polarization  wave  having  the  components  $E_z$,  $H_x$,  and  $H_3'$  only.  From 

Maxwell's  equations  it  follows  that 

\begin{equation} 

\ffac{\partial  B_x}  {\partial  t}  =  -  \frac{\partial  E_z}  {\partial  y} . 

\label{3.30} 

\end{equation} 

Substitution  of  Eq.  (\ref{3.30})  into  Eq.  (\ref{3.28})  gives  the  absorption 

condition  for  $W=E_z$  in  the  form 

\begin{equation} 

\left(  \frac{\partial  E_z}  {\partial  x}  -  \ffac{  1 } {c}  \ffac{\partial  E_z} 

{\partial  t}  -  \ffac{c}  {2}  \ffac{\partial  B_x}  {\partial  y}  \right)_{x  =  0}  =  0. 

\label{3.31} 

\end  {equation} 

Similar  conditions  can  readily  be  deduced  for  an  $H$-polarization  wave. 

Let  us  now  write  finite-difference  approximations  for  the  absorption 
conditions.  For  Eq.  (\ref{3.27})  the  difference  scheme  has  the  form 
\begin{equation} 

( E_z  )'^{n+l}_{0J,k-tl/2}  =  (  E_z  rn_{  1  j,k+l/2}  + 

\ffac{c\tau  -  h_x}  {c\tau^-h_x}  [  ( E_z  )^{n+l}_{l  J,k-i-l/2}  - 
(E_zrn_{0J,k+l/2}  ] .  \label{3.32} 

\erid{equation} 

Write  the  second-order  scheme  for  Eq.  (\ref{3.28})  assuming  that 
$h_x=h_3^=h_z=h$: 

\begin{eqnarray} 

( E_{z}  )^{n+l}_{0J,k-H/2}  &=&  -( E_{z}  r{n-l}_{lJ,k+l/2}  +  \ffac{c  \tau  -  h} 

{c\tau  +  h}  [(E_{z}  )^{n-M}_{lJ,k+l/2}  -t-(E_{z}  )'^{n-l}_{0J,k-i-l/2}  ]\nonumber\\ 

&-f-&  \ffac{2  \,  h}  {c  \tau  +  h} 

[(E_{z}  )^{n}_{0,j,k+l/2}  ■+-(E_{z}  )^{n}_{l,j,k+l/2}  ] -i- \nonumber  W  &+& 

\fi'ac{(  c  \,  \tau  )^{2} }  {c  \tau  +  h}  ( ( E_{z}  ^{n}  {0J+l,k-tl/2}  - 
2  (  E_{z}  r{n}_{0J,k+l/2}  +  \nonumber  W 
&-^&  ( E_{z}  )^{n}_{0j-l,k+l/2}  + 

(E_{z}  )^{n}_{lJ-t-l,k+l/2}  -  2  (E_{z}  )''{n}_{l  j,k-i-l/2}  +\nonumber\\ 

&+&  (E_{z}  )^{n}_{lJ-l,k+l/2}  + 

( E_{z}  )^{n}_{0J,k+3/2}  -  2  (  E_{z}  )^{n}_{0j,k-i-l/2}  +  \nonumber\\ 

&+&  (  E_{z}  r{n}__{0J,k-l/2}  + 

( E_{z}  )^{n}_{lJ,k+3/2}  -  2  ( E_{z}  )^{n}_{l  j,k+l/2}  +\nonumber\\ 

&.+&  ( E_{z}  r{n}_{lJ-l,k-l/2} ).  \label{3.33} 

\end{eqnarray} 

For  a  two-dimensional  case  condition,  Eq.  (\ref{3.29}),  is  approximated  by  the 
scheme 

\begin{eqnarray} 

( E_{z}  )^{n+l}_{0J}  &=&  ( E_{z}  )''{n}_{l J}  +  \ffac{c \tau  -  h} (c \tau  +  h}  ( 

(E_{z}  )^{n-l-l}_{l,j}  -  (E_{z}  )^{n}_{0j}  )  -  Wnumber  W  &&  {}- 

\ffac{c}  (2  ( c  \tau  +  h )}  ( ( B_{x}  )^{n+l/2}_{0j+l/2}  -  (  B_{x}  )^{n+l/2}  {)j-l/2}  +  Wnumber  W 
&&  {}+(  B_{x}  r{n+l/2}_{lJ+l/2}  -  (  BJx)  nn+l/2}_{l,j-l/2} ) . 

\label{3.34} 

\end{eqnarray} 

A  somewhat  different  approach  to  the  conditions  at  an  open  boundary 
segment  was  used  by  Weiland  in  the  BCI  code  modeling  axially  symmetrical  fields 


\cite{51}  and  the  TBCI  code  modeling  azimuthally  nonuniform  oscillation 
modes  \cite{52,53}  Weiland  considers  a  particular  case  of  a  wave  propagating 
along  an  axially  symmetrical  tube  and  assumes  that  the  field  at  a  point 
$z_0$  at  a  time  $T$  is  the  same  as  that  at  a  point  $z_0-ct$  at  a  time 
$t-\tau$,  so  that  the  $B_\phi$  component  is  approximated  by 
\begin{equation} 

(B_{\phi}  )^{n+l/2}_{i-l/2,k}  =  (B_{\phi}  )'^{n-m+l/2}_{i-l/2,k-l}  , 

\quad  mc\tau  =  h_{z}  .  \label{3.35} 

\end{equation} 

The  equation  approximating  the  $E_r$  component  will  then  take  the  form 
\begin  {equation} 

( E_{r}  r{n+l}_{i-l/2,k}  =  (  E_{r}  r{n}_{i-l/2,k}  +  \ffac{\tau}  (m  \,h_{z}} 

[  (  B_{\phi}  )^{n+l/2}_{i-l/2,k-l}  -  ( B_{\phi}  )^{n-m+l/2}_{i-l/2,k-l}  ] .  \label{3.36} 
\end{equation} 

The  computation  by  this  scheme  requires  storing  an  intermediate 
information  for  $m$  layers.  In  deriving  the  finite-difference 
equations  Weiland  used  the  finite  integration  method  where  the  volume 
or  area  (in  a  two-dimensional  case)  of  the  grid  cell  is  considered 
as  an  element  for  integration.  The  finite-difference  equations 
constructed  in  this  case  are  the  same  as  those  we  derived  for  the  inner 
point  of  the  grid.  In  the  methodological  respect,  this  approach  is 
interesting  in  view  that,  when  integrating  for  a  near  boundary  element,  one 
may  introduce  into  the  finite-difference  scheme  a  factor  equal  to  the 
cell  volume  (area)  occupied  by  the  field.  Weiland,  however,  uses  only  a 
simplified  version  of  this  method  where  he  distinguishes  outer  cells 
(occupied  by  metal)  and  limer  cells  (completely  occupied  by  field)  and  sorts 
the  near-boundary  cells  by  running  out  a  diagonal  through  a 
rectangular  cell.  Thus,  if  this  diagonal  approximates  well  the  inclined 
segment  of  the  boundary,  only  a  correction  factor  of  two  may  appear  in 
the  equations. 

The  construction  of  a  finite-difference  scheme  of  the  second-order 

accuracy  for  the  approximation  of  the  boundary  conditions  for  a 

boundary  contour  consisting  of  second-order  curves  was  completely 

automated  by  Ivanov  \cite{49}  in  an  applied  program  package  named  MAXWELL-T 

For  the  axially  symmetrical  case,  the  boundary  conditions  have  the  form 

\begin{eqnarray} 

(E_{r}  )^{n+l}_{i-l/2,k}  &=&  (E_{r}  )^{n}_{i-l/2,k}  + 

\tau  \sum_{j}  P  {j}  (  B_{\phi}  )^{n+l/2}_{j}  ,  \label{3.37}  W 
(E_{z}  )^{n+l}_{i,k-l/2}  &=&  (E_{z}  )^{n}_{i,k-l/2}  + 

\tau\sum_{j}  P_{j}  (B_{\phi}  )^{n+l/2}_{j}  ,  \label{3.38} 

\end{eqnarray} 

where  $PJ$  are  the  difference  template  coefficients  and  the  whole  summation 

is  carried  out  by  all  grid  points  neighboring  the  near-boundary 

points. 

This  approach  requires  preliminarily  marking  the  types  of 
near-boundary  points  and  storing  the  $PJ$  coefficient  for  them. 

\section  (Library  of  Classes  for  Object-Oriented  Field  Solver  Code} 

The  classes  library  which  reflects  the  structure  of  the  complete 


PIC-code  architecture  is  made  up  of  base  classes,  visualization  classes 
interface  and  contemplation  classes.  Note  should  be  made  that  the  library 
contains  different  implementations  of  the  same  concepts  (classes): 
vftrix,  matr,  array,  vector,  etc.  This  has  been  done  in  order  to  provide 
for  a  search  for  the  most  optimal  program  implementation  both  during 
the  creation  stage  of  certain  classes  and  while  developing  a  method 
to  approach  them. 

BASE  CLASSES  are  considered  here  as  class  hierarchies  describing  the 
numerical  model  of  a  specific  task.  To  new  base  data  types  should  also 
belong  data  classes  (structures)  describing  common  base  concepts: 
coordinate,  axis,  vector,  etc. 

VISUALIZATION  CLASSES  are  required  for  graphical  specification  of  the 
computational  region,  checking  of  the  correctness  of  mesh  generation  and 
specification  of  the  boundary  conditions  of  the  task,  as  well  as  graphical 
representation  of  the  results. 

INTERFACE  CLASSES  serve  to  create  an  advanced  interactive  data  input 
under  MS  WINDOWS.  Application  of  this  approach  helps  to  create  a  user-friendly 
interface.  The  entire  class  hierarchy  is  based  on  a  standard 
class  TDialog  OWL,  Borland  Library. 

COMPUTATIONAL  CLASSES  are  developed  to  implement  various  numerical 
algorithms  useful  for  solving  electrostatic  tasks.  Thus,  the  emphasis 
in  this  report  is  made  on  developing  straightforward  method  of  solving 
Poisson  equation. 

\subsection{Base  Classes} 

Development  of  new  data  types  (structures  and  classes)  requires  a  detailed 
description  of  the  iimer  structure  of  the  abstract  class  as  well  as  the 
interface  of  interaction  of  the  objects  of  a  given  class  with  other 
data  types  in  a  specific  implementation  of  numerical  algorithms.  The  process 
of  writing  the  base  classes  is,  however,  iterational.  This  is  due 
to  the  fact  that  in  object-oriented  programming  it  is  difficult  to  readily 
determine  the  final  structure  of  the  new  type  data  and  still  more  difficult 
it  is  to  describe  all  possible  methods  of  the  interaction  of  objects  of 
a  given  class  with  the  other  program  data.  Classification  of  the  library 
classes  used  here  allows  us  to  separate  major  (base)  data  (structure) 
with  further  detailed  development  of  the  structure  and  methods.  These 
classes  form  the  "lower"  level  of  the  library. 

\begin  {verbatim} 
struct: 

AXISTRUCT  -  describes  the  type  of  the  coordinate  axis 
for  physical  values 

pixel  -  determines  2D  coordinates  on  the  display 

vect  -  determines  the  physical  value  of  the  3D  coordinate 

index  -  determines  the  2D  index 

para  -  determines  the  2D  coordinates  (TEMPLATE  data  type) 
point  -  determines  the  2D  coordinates 
array  - 
TVector  - 


TCell  - 
TPhPoint  - 
class: 
axis  - 

TBoundary  - 
TElectrod  - 
TAbstrRegion  - 
TGeom  - 

TGeomFrameWork  - 
TAbstrMesh  - 
TAbstrModel  - 
TAbstrPhysVal  - 
TEulerVal  - 
TLagrangeVal  - 
THistoricVal  - 
TGridVal  - 
TFunctionVal  - 
’  TDoubleGridVal  - 
TBeamVal  - 
\end{verbatim} 

As  a  result  of  detailed  elaboration  of  specific  conditions  of  the 
numerical  model  each  of  the  classes  enumerated  above  gives  rise  to  new  type 
data  inheriting  both  the  data  structure  and  the  interactive  behavior  of 
the  parent  classes.  These  classes  fill  the  upper  level  of  the  base  classes 
describing  the  numerical  model. 

The  following  class  hierarchy  is  used  to  describe  the  mesh  type  of  the 
computational  region:\vspace{  12pt} 

\noindent 

\begin{minipage}[c]{5true  cm} 
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\end{minipage}\hfill  \begin  {minipage}  [c]  { lOtrue  cm} 

This  hierarchy  is  meant  for  the  introduction  into  the  numerical 
model  of  objects  subsequently  used  as  components  of  physical  values.  Their 
usage  will  simplify  the  display  of  physical  values.\end{minipage}\\[2ex] 
\begin{minipage}[c]{50true  mm} 
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\end{picture} 

\end{mmipage}\hfill  \begm  {minipage}  [c]  { lOtrue  cm} 

The  name  of  this  group  implies  that  it  deals  with  determination  of  the 
geometry  type  of  a  numerical  model.  These  classes  should  be  added  by 
{\tt  TElectrod}  and  {\tt  TGeom}  for  specification  of  a  random  computational 
region. 

Vend  {minipage}  \\[2ex] 


This  hierarchy  of  classes  is  used  to  describe  the  type  of  the  computational 
region: 

Vnoindent 
\unitlength=lmm 
\special{em:linewidth  0.4pt} 

Minethickness  {0.4pt} 

Vbegin  {picture}  (5 5 .00,40 .00) 

\put(0.00,24.00)  {\ffamebox(35 .00,8.00)[]  { } } 
\put(35.00,28.00){\line(l,0){10.00}} 

\put(  1 0 .00, 8 .00)  {\line(0, 1 )  { 1 6.00} } 

\put(45.00,8.00){\line(0,l){20.00}} 

\put(10.00,16.00){\line(l,0){35.00}} 

\put(10.00,8.00){\line(l,0){35.00}} 

\put(45.00,12.00){\line(l,0){8.00}} 

\put(7.00,28.00)  {\makebox(0,0)[lc]  {\tt  TAbstrRegion} } 
\put(18.00,0.00){\line(0,l){8.00}} 

\put(53.00,0.00){\line(0,l){12.00}} 

\put(18.00,0.00){\line(l,0){35.00}} 
\put(16.00,20.00){\makebox(0,0)[lc]{\tt  TSampleRgn}} 
\put(16.00,12.00){\makebox(0,0)[lc]{\tt  TRectangleRgn} } 
\put(26.00,4.00)  {\makebox(0,0)[lc]  {\tt  TRectRgnRZ}  } 
\end{picture}\vspace{  12pt} 


Classes  hierarchy  of  the  mesh  of  the  computational  region  is  needed  to 
describe  the  type  of  the  computational  region,  the  knods  template,  etc. 
The  abstract  class  TAbstrMesh  incorporates  two  other  abstract  classes. 
Vnewpage 
\begin{figure*}[t] 

\unitlength=lmm 


\special{em:linewidth  0.4pt} 

\linethickness  {0 .4pt} 

\begm{picture}(140.00, 60.00) 

\put(0.00,42.00){\framebox(45.00,8.00)[cc]{}} 

\put(0.00,54.00){\framebox(45.00,8.00)[cc]{}} 

\put(45 .00,58.00)  {\line(  1 ,0)  {20.00} } 

\put(45 .00,46.00)  {\lme(l  ,0)  {20.00} } 

\put(65 .00,46.00)  {\lme(0, 1 )  { 1 2.00} } 

\put(65.00,52.00){\line(l,0){10.00}} 

\put(75.00,48.00){\framebox(45.00,8.00)[cc]{}} 

\put(120.00,52.00){\line(l,0){10.00}} 

\put(90.00,40.00){\line(0,l){8.00}} 

\put(130.00,40.00){\line(0,l){12.00}} 

\put(90 .00,40 .00)  {\line(  1 ,0)  {40.00 } } 
\put(130.00,44.00){\line(l,0){  10.00}} 

\put(  1 00.00,32.00)  {\line(  1 ,0)  {40.00} } 

\put(  1 00.00,24.00)  {\lme(l  ,0)  {40.00} } 

\put(100.00,16.00){\line(0,l){24.00}} 

\put(140.00,16.00){\line(0,l){28.00}} 

\put(90.00,16.00){\line(l,0){50.00}} 

\put(130.00,12.00){\lme(l,0){10.00}} 

\put(90.00,8.00){\lme(0,l){8.00}} 

\put(130.00,8.00){\line(0,l){8.00}} 

\put(100.00,0.00){\line(0,l){8.00}} 

\put(100.00,0.00){\lme(l,0){40.00}} 

\put(  1 40.00,0.00)  {\line(0, 1 )  { 12.00} } 
\put(90.00,8.00){\line(l,0){40.00}} 
\put(5.00,58.00){\makebox(0,0)[lc]  {\tt  TAbstrRegions}} 
\put(5. 00,46.00)  {\makebox(0,0)[lc]  {\tt  TGeomFrameWork} } 
\put(80.00, 52.00)  {\makebox(0,0)[lc]  {\tt  TAbstrMesh}} 
\put(95.00,44.00){\makebox(0,0)[lc]  ^tt  TMesh2D} } 
\put(105.00,36.00){\makebox(0,0)[lc]  {\tt  TRegularMesh}} 
\put(105.00,28.00){\makebox(0,0)[lc]  {\tt  TCellListMesh}} 
\put(105.00,20.00){\makebox(0,0)[lc]  {\tt  TNonRectMesh}} 
\put(95 .00,12.00)  {\makebox(0,0)[lc]  {\tt  TMesh  ID}} 
\put(105.00,4.00){\makebox(0,0)[lc]  {\tt  TSurfaceMesh} } 
\end{picture} 

\end{figure*} 


Classes  describing  the  numerical  model  make  use  of  the  data  of  the 
computational  region,  boundary  conditions,  dimensions  and  symmetry, 
as  well  as  the  type  of  the  Minebreak  task/problem. 


\begm  {figure* }  [bth] 

\unitlength=lmm 
\special{em:linewidth  0.4pt} 

Minethickness  {0.4pt} 

\begin{picture}(140.00,50.00) 

\put(100.00,0.00){\line(0,l){8.00}} 

\put(150.00,0.00){\line(0,l){12.00}} 

\put(130.00,12.00){\line(l,0){20.00}} 

\put(  1 00.00,0.00)  {\line(l  ,0)  {50.00} } 

\put(l  05 .00,4.00)  {\makebox(0,0)[lc]  {\tt  TElectrostaticModel} } 
\put(90.00,8.00)  {\line(0, 1 )  { 1 6.00} } 


\put(130.00,8.00){\line(0,l){20.00}} 

\multiput(90.00,8.00)(0,8){2}{\line(l,0){40.00}} 

\put(120.00,28.00){\line(l,0){10.00}} 

\put(95.00,12.00){\makebox(0,0)[lc]  {\tt  TSimple2DModel}} 
\put(95.00,20.00){\makebox(0,0)[lc]  {\tt  TPiClassicModel} } 
\put(75.00,24.00){\framebox(45.00,8.00)[cc]{}} 

\put(80.00, 28.00)  {\makebox(0,0)[lc]  {\tt  TAbstrModel}} 
\put(65.00,28.00){\line(l,0){  10.00}} 

\put(65.00, 1 0.00)  {\line(0, 1 )  {36.00} } 

\multiput(45 .00, 1 0.00)(0, 12)  {4}  {\line(  1 ,0)  {20.00}  } 
\multiput(0.00,6.00)(0,12){4}{\framebox(45.00,8.00)[cc]{}} 

\put(5 .00,46.00)  {\makebox(0,0)[lc]  {\tt  TAbstrRegions}  } 
\put(5.00,34.00){\makebox(0,0)[lc]  {\tt  TAbstrProcess} } 
\put(5.00,22.00){\makebox(0,0)[lc]{\tt  TAbstrPhysVal}} 

\put(5.00, 10.00){\makebox(0,0)[lc]  {\tt  TGeomFrameWork}  } 

\end  {picture} 

\end{figure*} 

\subsection{Visualization  Classes} 

This  part  of  the  library  is  based  on  the  GUI-interface  of  the  OWL  Library 
compiled  by  Borland.  The  major  classes  developed  to  display  in  the  child 
windows  are  based  on  the  abstract  class  {\tt  TBasePlotswin}. 

Vnoindent 
\unitlength=lmm 
\special{em:linewidth  0.4pt} 

Minethickness  { 0.4pt} 

\begin{picture}(70.00,45.00) 

\put(25.00,0.00)  {\line(0, 1 )  { 1 6.00} } 

\put(65.00,0.00){\line(0,l){20.00}} 

\multiput(25.00,0.00)(0,8){2}{\line(l,0){40.00}} 

\put(55 .00,20.00)  {\lme(  1 ,0)  { 1 0.00} } 

\put(  1 5 .00, 1 6.00)  {\line(0, 1 )  { 1 6.00} } 

\put(55 .00, 1 6.00)  {\line(0, 1 )  {20.00} } 
\multiput(15.00,16.00)(0,8){2}{\line(l,0){40.00}} 
\put(40.00,36.00){\lme(l,0){15.00}} 
\put(0.00,32.00){\framebox(40.00,8.00)[cc]{}} 
\put(5.00,36.00){\makebox(0,0)[lc]{\tt  TBasePlotsWin}} 
\put(20.00,28.00){\makebox(0,0)[lc]  {\tt  TSurfacePlot}} 
\put(20.00,20.00){\makebox(0,0)[lc]{\tt  TLinesPlot}} 
\put(30.00,12.00){\makebox(0,0)[lc]{\tt  TRegionPlot}} 

\put(30.00,4.00)  {\makebox(0,0)[lc]  {\tt  TPointsPlot}  } 

\end{picture} 

%\end{figure*} 

\subsection{Dialog  Classes} 

Dialog  classes  are  necessary  to  create  a  friendly  environment  for  the 
user  working  with  the  software  package.  In  view  of  the  fact  that  the  project 
under  developments  meant  for  operation  under  MS  WINDOWS  we  make  use  of  the 
OWL  Library,  v.2  compiled  by  Borland. 


The  report  contains  the  child  classes  from  the  class  {\tt  TDialog}  OWL 


Borland  Library.  They  were  developed  for  input  and  variation  of  data  required 
to  initialize  new  objects.  In  addition  to  the  input  dialog  windows  the  library 
contains  windows  for  systems  messages  and  information  windows. 

{\bf  Windows  informing  of  the  version  and  authors  of  the  code} 

\begin{figure*}[h] 

\unitlength=lmm 
\special{em:linewidth  0.4pt} 

\linethickness  {0 .4pt} 

\begm{picture}  ( 1 40.00,20.00) 

\put(85.00,0.00){\line(0,l){8.00}} 

\put(  125 .00,0.00)  {\line(0, 1){  1 2.00} } 

\put(85. 00,0.00)  {\line(  1 ,0)  {40.00} } 

\put(l  15.00, 12.00){\line(l,0){  10.00}} 

\put(0.00,0.00){\ffamebox(45.00,8.00)[cc]  {\tt  ProjectRCVersion} } 

\put(45 .00,4 .00)  {\line(  1 ,0)  {40.00 } } 
\put(75.00,8.00){\ffamebox(40.00,12.00)[cc]{}} 
\put(90.00,4.00){\makebox(0,0)[lc]{\tt  TAboutVersDlg}} 

\put(95 .00,15.00)  {\makebox(0,0)[cb]  {\tt  O  WL-class}  } 

\put(95 .00, 1 3 .00)  {\makebox(0,0)[ct]  {\tt  TDialog} } 

\end{picture} 

\end{figure*} 

The  dialog  window  ({\tt  TlnfoDlgl })  and  the  data  structure  ({\tt  TlnfoTrsl }) 
are  to  output  information  data  on  reserves  of  the  computer,  on  computational 
model,  etc.  through  the  window  of  the  class  {\tt  TlnfoDlgl}: 

\begin{  figure*  }[h] 

\unitlength=lmm 
\special{em:linewidth  0.4pt} 

Minethickness  {0.4pt} 

\begin{picture}(140.00,20.00) 

\put(85.00,0.00){\line(0,l){8.00}} 

\put(125.00,0.00){\line(0,l){12.00}} 

\put(85.00,0.00){\line(l,0){40.00}} 

\put(115.00,12.00){\line(l,0){10.00}} 
\put(0.00,0.00){\framebox(45.00,8.00)[cc]{\tt  TlnfoTrsl}} 
\put(45.00,4.00){\Iine(l,0){40.00}} 
\put(75.00,8.00){\framebox(40.00,12.00)[cc]{}} 
\put(90.00,4.00){\makebox(0,0)[lc]  {\tt  TlnfoDlgl}} 

\put(95 .00, 1 5.00)  {\makebox(0,0)[cb]  {\tt  OWL-class}  } 

\put(95.00, 1 3 .00){\makebox(0,0)[ct]  {\tt  TDialog} } 

\end{picture} 

\end{figure*} 

The  dialog  window  ({\tt  TRegionBndsDlg})  and  the  data  structure 
({\tt  TRegionBndsTrsl})  are  to  input  data  into  the  class  {\tt  TAbstrRegion} 
and  its  child  classes: 

\noindent 
\unitlength=lmm 
\special{em:linewidth  0.4pt} 

Minethickness  {0.4pt} 


\begin{picture}(140.00, 25.00) 

\put(85.00,0.00){\lme(0,l){8.00}} 

\put(l  25 .00,0.00)  {\lme(0, 1)  { 1 2.00} } 

\put(85.00,0.00){\lme(l,0){40.00}} 

\put(115.00,12.00){\line(l,0){10.00}} 

\put(0.00,0.00){\framebox(45.00,8.00)[cc]{\ttTRegionBndsTrsl}} 

\put(45 .00,4.00)  {\lme(l  ,0)  {40.00} } 

\put(75.00,8.00){\framebox(40.00,12.00)[cc]{}} 

\put(90.00,4.00){\makebox(0,0)[lc]  {\tt  TRegionBndsDIg}  } 
\put(95.00,15.00){\makebox(0,0)[cb]{\tt  OWL-class}} 

\put(95.00, 1 3.00){\makebox(0,0)[ct]  {\tt  TDialog}  } 

\end{picture} 

%\end{figure*} 

{\bf  A  service  class  to  check  the  input  information  in  the  dialog  window}  Minebreak 
({\tt  TRegionBndsDIg}) 

\noindent 
\unitlength=lmm 
\special{em:linewidth  0.4pt} 

Minethickness  {0.4pt} 

\begin  {picture}  ( 140.00,24.00) 

\put(10.00,0.00){\line(0,l){8.00}} 

\put(60.00,0.00){\line(0,l){  12.00}} 

\put(10.00,0.00){\line(l,0){50.00}} 

\put(50.00, 12.00)  {\line(  1 ,0)  { 1 0 .00 } } 

\put(0.00,8.00){\ffamebox(50.00,12.00)[cc]{}} 

\put(  15. 00,4.00)  {\makebox(0,0)[lc]{\tt  TAboutVersDlg}} 
\put(20.00,15.00){\makebox(0,0)[cb]  {\tt  OWL-class} } 

\put(20.00, 1 3 .00)  {\makebox(0,0)[ct]  {\tt  TFilterValidator} } 

\end{picture} 

%\end{figure} 


\subsection{ Computing  Classes} 

Due  to  the  fact  that  during  the  project  implementation  various 
numerical  algorithms  are  used  to  compute  the  same  physical  values  and  also  to 
reach  the  main  target  of  the  project  -  REUSABILITY  ~  we  attempted  to 
separate  computational  classes  from  base  classes.  Development  of  the  class 
hierarchy  with  inheritance  is  feasible  only  for  families  of  certain  numerical 
algorithms  having  similar  structure  and  identical  sets  of  input  and  output 
parameters.  In  this  case  the  base  class  is  used  for  late  binding  and 
replacement  of  the  numerical  algorithms  on  the  run.  The  library  contains  only 
one  computational  class  ({\tt  TPoisson})  which  is  a  prototype  of  the  approach 
described. 

The  service  class  providing  links  between  the  computational  module  and 
the  object-oriented  base  classes  is  to  be  made  up  by  the  classes-descendants 
{\tt  TAbstrProcess} . 

\begin{verbatim} 

TAbstrProcess 

TDetermPrcs 


TMomentPrcs 

TStaticPrcs  -  TElectrostaticPrcs 
TDynamicPrcs 
THistoricPrcs 
\end{verbatim} 

However,  simple  and  laconic  algorythms  can  be  fully  encapsulated  into 
respective  classes  of  our  main  structure,  e.  g.  the  FFT  algorithm  can  be 
implemented  both  in  a  member-function  of  the  class  {\tt  TGridVal:  Spectrum}  ( ), 
and  in  a  member-function  of  the  class  {\tt  THarmonic  Process::Spectrum  (TPhysVal*)}. 

\section{PiCsim3  code  for  Computation  of  Poisson  Equation} 

\subsection{Goal  of  Program} 

To  carry  out  testing  of  the  library  of  GO  classes  we  developed  the  PiCsimS 
code  based  on  the  00-PIC  classes  hierarchy.  This  software  furnishes  an 
illustration  of  interactions  between  the  classes  developed.  Using  the 
calculations  of  the  test  problems  of  the  solution  of  Poisson  equation  as  an 
example  it  was  shown  that  the  version  developed  is  capable  of  doing 
computations  of  the  problems  in  simple  geometries. 

The  software  is  run  under  Windows  3.1  and  Win32,  therefore  the  diskette 
has  both  projects  for  the  Compiler  Borland  C++  v.4.5  (ps3$_-$work.ide 
and  ps$_-$32.ide).  In  the  32-register  version  there  should  be  determined  the 
global  variable  $_-$WIN$_-$32$_-$  to  inhibit  usage  of  the  functions  of  the 
Toolhelp  library,  such  as  SysMemoryInfo  ( ),  Heapinfo  ( ),  GlobalCompact  ( ). 

The  software  program  satisfies  the  requirements  set  for  the  codes  with 
user-friendly  graphical  interfaces.  This  program  makes  use  of  the  standard 
Windows  MDI  implemented  as  the  Borland's  OWL. 

Correct  performance  of  the  program  is  possible  provided  it  is  run  on 
the  486DX  computers  with  SMB  on-line  memory. 

\subsection  {Installation  of  Program  onto  Hard  Disk} 

To  ensure  successful  installation  of  the  software  product  onto  your 
hard  disk  the  latter  has  to  possess  no  less  than  15  MB  free  space.  In  view  of 
the  fact  that  the  version  provided  is  of  a  de-bug  character  we  chose  not  to 
develop  the  installation  program  unrolling  the  code  of  fields  computation. 

We  applied  a  simple  way  of  transportation  of  the  self-unpacking  archives  of 
the  source  modules  of  00-PIC  library  of  PiCsim3  and  projects  for  the  compiler 
Borland  C++  v.4.5. 

To  port  the  program  onto  your  hard  disk  is  easy.  You  are  to  open  a  PICSIM 
catalogue  on  a  disk  with  no  less  than  10  MB  free  space,  e.g.: 

\begin{verbatim} 

C:\>MD  PICSIM 
\end{verbatlm} 

Then  insert  the  work  diskette  into  the  disk  drive  and  copy  the  self-unpacking 
archives  with  the  program  into  the  catalogue  C;{$\backslash$}PICSIM 


\begm{verbatiin} 

C:\>A: 

A:\COPY  PICSIM_A.EXE  C:\PICSIM\PICSIM_A.EXE 
\end{verbatim} 

Upon  transporting  the  archives  on  the  disk  of  your  computer  take  the  diskette 
out.  The  next  preparation  step  is  to  unpack  the  archive  file.  To  do  so  the 
user  is  to  transfer  to  the  work  disk  in  the  catalogue  PICSIM  using  the  command 

\begin{verbatim} 

A:\>C 

C:\>CD  PICSIM 
C;\PICSIM\> 

\end{verbatim} 

Then  print  in  the  command  line  the  command 

\begin{verbatim} 

C:\PICSIM\>PICSIM_A.EXE 

\end{verbatim} 

Upon  completing  the  archives  unpacking  your  disk  should  display  the  directory 
tree: 

\begin  {verbatim} 

C:\ 

I - PICSIM\ 

I - INC 

I - OBJ 

I - EXE 

I - -HLP 

I - CPP 

I - base 

I - INTERFACE 

I - main 

I - PLOTS 

I - SERVICE 

\end{verbatim} 

It  is  essential  to  make  sure  that  all  the  files  necessary  for  successful 
compilation  of  the  program  PiCsimS  have  been  duly  unpacked.  Check  the  file 
lists  using  the  work  subdirectiries  against  the  lists  cited  in  the  report. 

When  unpacking  has  been  finished  you  may  delete  the  archive  file  from 
the  hard  disk,  as  its  duplicate  is  on  the  work  disk  now. 

\subsection{Working  with  Program} 

The  program  should  be  started  from  00  WINDOWS,  e.g.  using  the  command: 
\begin{verbatim} 

C:\PICSIM\EXE\>  WIN  PICSIM3.EXE 
\end{verbatim} 


Your  computer  will  display  the  main  window  of  the  program.  Due  to 
implementation  of  the  MDI  interface  the  main  function  creates  the  object  of 
the  {\tt  TPICsimApp}  class  inheriting  all  the  properties  from  the  class 
{\tt  Tapplication}  of  the  class  library  OWL  which  calls  the  Run  ( )  method. 

The  class  {\tt  TPiCsimApp}  initializes  the  main  window  of  the  program  and,  in 
accordance  with  the  rules  of  building  the  MDI  interface,  these  are  two 
objects: 

\begin{verbatim} 

TPiCsimFrameWin  -  inheriting  from  clan  TDecoratedFrame 
TPiCsimClientWin  -  inheriting  from  clan  TMDIClient 
\end{verbatim} 

In  initializing  the  object  of  the  class  {\tt  TPiCsimFrameWin}  (SetupWindow 

( ))  there  creates  a  window  for  problems  and  other  managing  elements  of  the 

window.  Additionally  the  object  checks  the  sequence  of  messages  under  Windows 

and  calls  Winhelp  by  pressing  the  FI  key,  and  when  the  message  under  WM$_-$NEWMODEL 

and  WM$_-$CLOSEMODEL  are  input  it  changes  the  manner  of  operation  with  the 

computation  model.  This  approach  allows  the  user  to  change  the  main 

problem  window  at  run  time  (menu,  ControlBar,  StatusBar, ...).  For  this 

purpose  in  the  message  processor  under  OCWindows  use  is  made  of  the  client 

substitution  technique  enabling,  by  simple  means,  addition  of  new  models  with 

their  own  user-friendly  interfaces.  A  necessary  condition  for  this  approach 

is  the  inheritance  of  the  model  class  from  the  class  {\tt  TPiCsimClientWin}. 

Thus,  in  starting  the  program  the  computer  displays  the  main  window  with  the 
menu,  status-line  and  control  panel.  This  window  is  generated  for  the  user  to 
select  the  computation  model.  During  implementation  of  the  test  program  we 
used,  as  an  example,  the  electrostatic  model.  Having  selected  pictogram  $<\phi>$ 
you  initialize  the  electrostatic  model  under  your  own  window  tuned  to  operate 
with  this  model  type.  The  main  window,  in  addition  to  the  $<\phi>$  pictogram, 
has  the  $<?>$  pictogram  which  generates  the  message  Windows  and  the  FI  key 
which  calls  Winhelp.  The  $<\rm  C>$  pictogram  displays  the  information  window 
ABOUT,  and  pressing  the  pictogram  $<\rm  Q>$  causes  quitting  of  the  program. 

Having  selected  the  electrostatic  model,  the  program  replaces  the  main  window 
of  the  problem  with  its  own  menu  by  the  control  panel  and  status-line.  As 
shown  by  experience  of  working  with  software  complexes  under  Windows  the 
simplest  method  of  running  the  program  is  to  use  pictograms  from  the  control 
panel.  Therefore,  developing  the  working  scenario  we  paid  a  lot  of  attention 
to  underlining  the  basic  action  of  the  control  panel  pictograms 

\begin  {tabular}  {ccl} 

$<{\rm  N}>$  &  -  &  opening  new  modelW 
$<{\rm  0}>$  &  -  &  opening  model  stored  on  diskW 
$<{\rm  S}>$  &  —  &  saving  working  modelW 
$<{\rm  R}>$  &  -  &  starting  computation  of  potentialW 
$<{\rm  St}>$  &  —  &  computing  electrostatic  fieldsW 
$<{\rm  Nx}>$  &  -  &  next  computation  stepW 

$<{\rm  T}>$  &  -  &  opening  graphics  window  with  the  results  of  potential  $\phi$(r,z)\\ 

&  &  displayed  as  surfaceW 

$<{\rm  G}>$  &  —  &  opening  graphics  window  with  display  of  isolines  of  equal  W 
&  &  electric  field  strengthW 

$<{\rm  E}>$  &  —  &  exit  into  main  window  of  program  selecting  model  type. 


\end  {tabular} 

\subsection{Test  Results} 

The  program  allows  test  runs  based  on  computation  of  the  electric  field 
potential  and  strength  at  a  given  distribution  of  the  charge  density  under 
boundary  conditions.  Correctness  of  operation  of  the  program  was  determined  by 
comparing  the  initial  charge  distribution  with  the  distribution  of  the  charge 
density  reconstructed  from  the  calculated  distribution  of  the  electric  field 
strength.  The  results  we  obtained  in  these  tests  were  generelly  good,  since 
the  error  of  the  reconstructed  charge  density  was  of  the  order  ($h^2$), 
which  corresponds  to  the  accuracy  of  the  algorithm  used. 

Additionally,  calculations  by  our  program  were  compared  with  the  data 
obtained  by  other  authors  \cite{66,  67}. 

\subsubsection{Test  Tasks} 

Numerical  model  for  the  test  tasks  are  formulated  in  3  files;  "testl  .mod", 
''test2.mod"  and  "testS.mod".  To  load  the  test  task  into  the  program  and 
carry  out  the  computation  it  is  necessary  to  do  the  following: 

\def\labelitemi{— } 

\begin{itemize} 

\item  put  the  program  on  the  run  and  select  an  electrostatic  version  of  the 
task; 

\item  open  the  model  by  pushing  the  button  $<{\rm  0}>$; 

\item  choose  the  file  "test. mod",  N  1, 2, 3; 

\item  push  the  button  $<{\rm  R}>$  and  solve  the  Poisson  equation  for  the 
given  conditions;  and 

\item  visualize  the  windows  with  graphics  information  on  distridution  of  the 
charge  density,  the  electric  field  potential  and  strength,  having  selected  in 
the  menu  the  items  =  Plots/2d  Plots/Space  Charge  (Potential  or  Restore 
Source). 

\end{itemize} 

The  program  has  the  following  options  for  controlling  the  graphics  windows: 
\begin{itemize} 

\item  scaling  of  the  graphics  information  in  the  window  and  its  frames; 

\item  addition  of  standard  objects  (text,  boundary,  of  the  calculation  region  and 
calculation  mesh,  symmetry  axes, ...)  to  the  information; 

\item  withdrawal  of  the  above  objects  from  the  window  and  their  subsequent 
editing; 

\item  while  selecting  "edit"  for  the  main  physical  value  visualized 
graphically  in  the  window  the  screen  displays  the  dialog  window  within  which 
one  can  define  orientation  of  the  surface  with  respect  to  the  look-up  plane, 
etc. 

\end{itemize} 

\subsubsection{Test  run  1} 


The  most  completely  studied  charge  distribution  was  that  of  a  single 
uniform  sphere  of  charge.  The  data  for  the  first  run  is  set-up  by  the 
file  "testl  .mod"  and  correspond  to  the  data  for  the  test  run  1  reported  in 
\cite{66}. 


\begm{figure}[h] 

\centermg 

\unitlength=0.24pt 

\begm{picture}(1298,1003) 

\put(0, 1 003)  {\special  { em:graph  testO  1  .pcx} } 

\end{picture} 

\caption{} 

\end{figure} 

Figure  2  shows  the  input  charge  distribution  and  the  calculated  fields 

and  associated  errors.  The  calculation  by  our  program  agree  well  with 

the  data  obtained  by  Beard  and  Hockney  using  the  POT  4A  program  \cite{66}. 

\subsubsection{Test  run  2} 

In  a  more  stringent  test,  we  checked  the  accuracy  of  the  program 
using  an  input  charge  density  consisting  of  two  equally  but  oppositely 
charged  spheres  of  equal  radii.  The  data  for  this  run  is  set-up  by  the 
file  ''test2.mod"  and  corresponds  to  the  data  for  the  test  run  2  from  Ref 
\cite{66}. 

\begin  {figure}  [t] 

\centerlng 

\unitlength=0.24pt 

\begin{picture}(1298,1003) 

\put(0,1003){\special{em:graph  test02.pcx}} 

\end{picture} 

\caption{} 

\end{figure} 

These  results  are  shown  in  Fig.  3.  They  agree  well  with  the  results 
obtained  using  the  POT  4A  program  \cite{66}. 

\subsubsection{Test  run  3} 

When  using  the  test  deck  to  verify  our  program  the  test  deck  will 
generate  a  potential  distribution  and  obtain  the  source  function  fi'om 
this  potential.  The  potential  is  stored  to  provide  a  check  on  the 
accuracy  of  the  solution.  The  generated  potential  can  be  an  analytic 
function  of  $x$  and  $y$  and  is  set-up  by  the  file  ''test3.mod."  as 
\begin{equation} 

\phi(x,y)=X(x)Y(y). 

\end{  equation} 

The  form  for  the  analytic  depends  on  the  boundary  conditions  is 
\[  X(x)=\left\{\begin{array}{ll}  \sin\Big(\dispIaystyle\ffac{3\pi  x} 

{N\Delta  x}\Big)  &  \nn  for-  MBCX  =  1,\\ 

\cos\Big(\displaystyle\ffac{4\pi  x}  {N\Delta  x}\Big)  & 

\rm  for-  MBCX  =  2,\end{array}\right.  \] 

\[  Y(y)=\lefl;\{\begin{array}  {11}  \sin\Big(\displaystyle\ffac{3\pi  y} 

{N\Delta  y}\Big)  &  \rm  for-  MBCY  =  1,\\ 

\cos\Big(\displaystyle\ffac{4\pi  y}  {NNDelta  y}\Big)  & 

\rm  for-  MBCY  =  2.\end{array}\right.  \] 


\newpage 
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In  the  previous  report  we  presented  a  general  scheme  of  relations 
architecture  of  the  base  classes,  which,  upper  levels,  is  capable  of 
including  various  particles  models.  While  developing  the  OO-model  archi¬ 
tecture  we  made  account  of  the  necessity  to  create  methods  of  the  object 
classes  interaction  not  only  inside  the  functional  model  but  also  that 
between  the  computation  and  GUI-classes.  The  present  report  views 
classes  allowing  us  to  create  a  model  with  a  GUI  interface  operating 
under  MS  WINDOWS. 

The  classes  library  which  reflects  the  structure  of  the  complete 
PIC-code  architecture  is  made  up  of  base  classes,  visualization  classes 
interface  and  contemplation  classes.  Note  should  be  made  that  the  library 
contains  different  implementations  of  the  same  concepts  (classes): 
vflrix,  matr,  array,  vector,  etc.  This  has  been  done  in  order  to  provide 
for  the  search  for  the  most  optimal  program  implementation  both  during 
the  creation  stage  of  certain  classes  and  while  developing  a  method 
to  approach  them. 

BASE  CLASSES  are  considered  here  as  class  hierarchies  describing  the 
numerical  model  of  a  specific  task.  To  new  base  data  types  should  also 
belong  data  classes  (structures )  describing  common  base  concepts: 
coordinate,  axis,  vector,  etc. 

VISUALIZATION  CLASSES  are  required  for  graphical  specification  of  the 
computational  region,  checking  of  the  correctness  of  mesh  generation  and 
specification  of  the  boundary  conditions  of  the  task,  as  well  as  graphical 
representation  of  the  results. 

INTERFACE  CLASSES  serve  to  create  an  advanced  interactive  data  input 
under  MS  WINDOWS.  Application  of  this  approach  helps  to  create  a  user- 
friendly  interface.  The  entirely  class  hierarchy  is  based  on  a  standard 
class  TDialog  OWL,Borland  Library. 

COMPUTATIONAL  CLASSES  are  developed  to  implement  various  numerical 
algorythms  useful  for  solving  electrostatic  tasks.  Thus,  the  emphasis 
in  this  report  is  made  on  developing  straightforward  method  of  solving 
Poisson  equation. 


l.BASE  CLASSES 


Development  of  new  data  types  (structures  and  classes)  requires  a  de¬ 
tailed  description  of  the  inner  structure  of  the  abstract  class  as  well 
as  the  interface  of  interaction  of  the  objects  of  a  given  class  with  other 
data  types  in  a  specific  implementation  of  numerical  algorithms.  The  pro¬ 
cess  of  writing  the  base  classes  is ,  however,  iterational.  This  is  due 
to  the  fact  that  in  object-  oriented  programming  it  is  difficult  to  readily 
determine  the  final  structure  of  the  new  type  data  and  still  more  difficult 
it  is  to  describe  all  possible  methods  of  the  interaction  of  objects  of 
a  given  class  with  the  other  program  data.  Classification  of  the  library 
classes  used  here  allows  us  to  separate  major  (base)  data  (structure) 
with  further  detailed  development  of  the  structure  and  methods.  These 
classes  form  the  "lower"  level  of  the  library. 


stuct: 

AXISTRUCT  -  describes  the  type  of  the  coordinate  axis  for 
physical  values 

pixel  -  determines  the  2D  coordinates  on  the  display 
vect  -  determines  the  physical  value  of  the  3D  coordinate 

index  -  determines  the  2D  index 

para  -  determines  the  2D  coordinates  (TEMPLATE  data  type) 

point  -  determines  the  2D  coordinates 

TPhPoint  -  determines  the  physical  value  of  the  2D  coordinate 

TCell  -  determines  the  2D  coordinates  on  the  mesh 

array  -  determines  the  array  physical  values 

TVector  -  determines  the  array  physical  values 

classes : 
axis 

TBoundary 

TElectrod 

TAbstrRegion 

TGeom 

TGeomFrameWork 

TAbstrMesh 

TAbstrModel 

TabstrPhysVal 

TEulerVal 

TLagrangeVal 

THistoricVal 

TGridVal 

TFunctionVal 

TDoubleGridVal 

TBeamVal 

As  a  result  of  detailed  elaboration  of  specific  conditions  of  the  nume¬ 
rical  model  each  of  the  classes  enumerated  above  gives  rise  to  new  type 
data  inheriting  both  the  data  structure  and  the  interactive  behavior  of 
the  parent  classes.  These  classes  fill  the  upper  level  of  the  base  classes 
describing  a  particular 

UAAAAAAAAAAAAAi, 

’  axis  AAAAi, 

AAAAAAAAAAAAAAO  ^ 


’  TGeomAxis  ’ 

AaaaaAaAaaaaaA' 

^  TPhysAxis  ^ 

AAAAAAAAAAAAAA’ 

’  TTimeAxis  ’ 

AAAAAAAAAAAAAAU 

This  hierarchy  is  meant  for  the  introduction  into  the  numerical  model 
of  objects  subsequently  used  as  components  of  physical  values.  Their 
usage  will  simplify  the  display  of  physical  values. 

uAAAAAAAAAAAAAAi 

’TGeomFrameWorkAAAAi, 

AAAAAAAAAAAAAAAu  " 

=  TGeomXY  ^ 

AAAAAAAAAAAAAAA' 

"  TGeomRZ  " 

AAAAAAAAAAAAAAA' 

^  TGeomRTh  ^ 

AAAAAAAAAAAAAAA' 

^  TGeomXlX2  ’ 

AAAAAAAAAAAAAAAu 

'The  name  of  this  group  implies  that  it  deals  with  determination  of  the 
geometry  type  of  a  numerical  model.  These  classes  should  be  added  by 
TElectrod  and  TGeom  for  specification  of  a  random  computational  region. 

The  following  class  hierarchy  is  used  to  describe  the  mesh  type  of  the 
computational  region. 

OAAAAAAAAAAAAAi 
’TAbstrRegion  AAAA^ 

AAAAAAAAAAAAAAA  ’ 

’TSampleRgn  ’ 

AAAAAAAAAAAAAA' 

’TRectangleRgnAAA^ 

AAAAAAAAAAAAAAA  ’ 

’TRectRgnRZ  ’ 

AAAAAAAAAAAAAAA 

Classes  hierarchy  of  the  mesh  of  the  computational  region  is  needed  to 
describe  the  type  of  the  computational  region,  the  knods  template,  etc. 

The  abstract  class  TAbstrMesh  incorporates  two  other  abstract  classes. 


AAAAAAAAAAAAAAAAAAi 

’  TAbstrRegions  AAAAAAAAAAi,  AAAAAAAAAAAAAAAAi. 
AAAAAAAAAAAAAAAAAAA  aAAAA'  TAbstrMesh  AAAA^ 
AAAAAAAAAAAAAAAAAAi  ^  AAAAAAAAAAAAAAAAA 
’  TGeomFrameWork  AAAAAAAAAAA  ^TMesh2D  AAAA^ 
AAAAAAAAAAAAAAAAAAA  AAAAAAAAAAAAAAA 

^TRegularMesh  * 

AA  A  A  aAa  aAA  A  A  A  AA ' 

^TCellsListMesh^ 

AAAAAAAAAAAAAAA' 

^TNonRectMesh  ’ 


xjaaAAAaaaAaaAaaaaau 
^TMeshlD  AAAA^ 
AAAAAAAAAAAAAAtj  ’ 
’TSurfaceMesh  ’ 

AAAAAAAAAAAAAAAu 


Classes  describing  the  numerical  model  make  use  of  the  data  of  the  com¬ 
putational  region,  boundary  conditions,  dimensions  and  symmetry,  as  well  as 
the  type  of  the  task. 

liAAAAAAAAAAAAAAAAAi, 

’  TAbstrRegion  AAAAAAAAAA^ 

AAAAAAAAAAAAAAAAAAu  ^ 

IjAAAAAAAAAAAAAAAAAi  ’ 

’  TAbstrProcess  AAAAAAAAAA'  uAAAAAAAAAAAAAAAi, 

AAAAAAAAAAAAAAAAAAu  AAAAA'  TAbstrModel  AAAA^, 

tjAAAAAAAAAAAAAAAAAi,  ’  AAAAAAAAAAAAAAAAu  ’ 

^  TAbstrPhysVal  AAAAAAAAAA'  ^TPiClasicModeP 
AAAAAAAAAAAAAAAAAAu  "  AAA AAA A A AAA A AAA' 

IjAAAAAAAAAAAAAAAAAi  ’  ^TSimple2DModelAAAAAAAAi, 

"  TGeomFrameWork  AAAAAAAAAAu  AAAAAAAAAAAAAAAti  " 

AAAAAAAAAAAAAAAAAaCJ  ’TElectrostaticModeP 

AAAAAAAAAAAAAAAAAAAAtj 


f**ifiHltt***********************************:t***^l**********:*********t**/ 

/*  */ 

/*  ObjectOriented  PIC  for  C++  */ 

I*  Version  1.00  */ 

/*  Copyright  (c)  1993,  1994  The  Group  Compuetr  Simulation  */ 

/*  High  Current  Electronics  Institute  */ 

/*  Contract  SPC93-4035(F6170893W0612)  */ 

/*  */ 

/*  Last  write  10-20-94  */ 

/***  PS_ARRAY.H  *♦♦/ 

#if  Idefmed  (_PS_ARRAY_H) 

#defme  _PS_ARRAY_H 

#include  "psdefs.h" 

void  msg  (int  a,  int  t,  int  i,  int  n); 

static  int  gc  =  0; 
static  int  gca  =  0; 
static  int  mgc  =  0; 

/*===============================================  array  =*/ 

class  array 

{ 

protected: 

num*  e; 


int  step; 
int  N; 
int  iO; 
int  own; 
inttyp; 
static  int  cont; 
int  id; 
int  chng; 
inttmp; 

public: 

array  ()  :  iO  (0),  N  (0),  typ(O),  chng  (0),tmp  (0),  own  (0),  step  (1) 

{  id=++cont;  gca++;  gc++;  msg  (l,typ,id,own); }; 
array  (int  Size,  int  Tmp=0)  :  iO  (0),  typ(l),  chng  (0),tmp  (Tmp),  step  (1) 

{  e  =  new  num  [N=Size+l];  gca++;  gc-H-;  own  =  N;  id  =  ++cont;  msg  (l,typ,id,own);  }; 
array  (int  Org,  int  End,  int  Tmp) :  iO  (Org),  typ(2),  chng  (0),tmp  (Tmp),  step  (1) 

{  e  =  new  num  [N=End-Org+l];  gca-H-;  gc++;  own  =  N;  id=  ++cont;  msg  (l,typ,id,own); }; 
array  (const  array&  v,  int  Tmp=0); 

array  (num*  d,  int  Size,  int  Step=l,  int  Tmp=0)  :  iO  (0),  typ(4),  chng  (0),  tmp  (Tmp),  step  (Step) 

{  e  =  d;  N  =  Size;  own  =  0;  gca++;  gc++;  id=  ++cont;  msg  (l,typ,id,own);  }; 

-array  0  {  gca--;  gc-;  N  =  0;  if  (own)  delete  []  e;  e  =  0;  msg  (-1  ,typ,id,own); } ; 

int  alloc  (int  Size)  { if  (own)  return  0;  e  =  new  num  [N=Size+l];  return  own  =  N; }; 

void  assign  (num*  p)  {  e  =  p; } ; 

num&  operator  []  (int  i)  {  return  *(e+(i-iO)*step);  }; 
array&  operator  =  (const  array&  v); 
array&  operator  =  (num  a); 
array&  operator  +=  (const  array&  v); 
array&  operator  *=  (num  a); 
friend  array  operator  +  (array&  vl,  array&  v2); 
friend  array  operator  *  (num  a,  array&  v); 
void  add  (array&  vl,  array&  v2,  num  a  =  1 .0); 
void  add  (array&  vl,  array&  v2,  array&  v3,  num  a  =  1.0); 
int  size  ()  {  return  N-1; }; 

}; 

/♦============:=====:===========—=====================  matrix  =*/ 

class  matrix 

{ 

public: 

num  *  data; 
public: 

int  Ni; 
int  Nj; 
indx  NN; 
inttyp; 
static  int  cont; 
int  id; 
int  own; 
int  chng; 
int  tmp; 

matrix  0  :  Ni(0),  Nj(0),  typ(O),  chng(O),  tmp(O),  own(O) 

{mgc++;  gc++;  id= -H-cont;  msg  (2,typ,id,own);  }; 
matrix  (int  N,  int  M,  int  Tmp  =  0); 
matrix  (int  N); 

matrix  (const  matrix&  a,  int  Tmp  =  0); 
matrix  (num  *  d,  int  Nl,  int  N2,  int  Tmp  =  0); 


-matrix  (); 

array  &  operator  []  (int  i); 
array  &  operator  ()  (int  j); 

num  &  operator  ()  (int  i,  int  j)  { return  *(data  +  i*Nj  +  j); }; 
matrix  &  operator  =  (const  matrix&  a); 
matrix  &  operator  =  (num  a); 
matrix  &  operator  +=  (const  matrix&  a); 
matrix  &  operator  *=  (num  a); 
friend  matrix  operator  +  (matrix&  al,  matrix&  a2); 
friend  matrix  operator  *  (num  x,  matrix&  a); 

void  assign  (num*  p)  {  data  =  (typ==4)?  p  :  0;  };  //  ! 
num  &  elem  (int  i,  int  j)  {  return  *(data  +  i*Nj  +  j); }; 
array  row  (inti)  {  return  array  ((data+i*Nj),Nj);  }; 
array  col  (intj); 

void  assign  (int  i,  intj,  num  x)  {  *(data  +  i*Nj  +  j)  =  x; }; 

}; 

IHf^Httliiifiliitt***********************************************************  *! 

#endif 

#include  <mem.h> 


void  msg  (int  a,  int  t,  int  i,  int  n) 

{ 

} 

/* _  array _ */ 

int  array ::  cont  =  0; 


array  ::  array  (const  array&  v,  int  Tmp) 
{ 


N  =  v.N;  iO  =  v.iO;  gc++;  gca++; 

e  =  new  num  [N]; 

typ  =  3;  chng  =  0;  own  =  N;  tmp  =  Tmp;  id=-t-+cont;  step  =  v.step; 
for  (int  i=0;  i<N;  i++)  e[i]=  v,e[i]; 

msg  (l,typ,id,own); 


} 


array&  array  ::  operator  =  (const  array&  v) 

{ 

if  ((step  ==  1)  &&  (v.step  ==  1)) 
memcpy  ((void*)e,  (void*)v.e,  N*sizeof(num)); 
else 


for  (int  i=0;  i<N;  i++)  *(e  +  i*step)  =  *(v.e  +  i*v.step); 
return  (*this); 


} 


array&  array  ::  operator  =  (num  a) 
{ 


for  (int  i=0;  i<N;  i++)  *(e  +  i*step)  =  a; 

return  (*this); 


} 


array&  array  ::  operator  +=  (const  array&  v) 

{ 

for  (int  i=0;  i<N;  i++)  *(e  +  i*step)  +=  *(v.e  +  i*v.step); 


return  (*this); 


} 


array&  array  operator  *=  (num  a) 

{ 

for  (int  i=0;  i<N;  i++)  *(e  +  i*step)  *=  a; 

return  (*this); 


} 


void  array  add  (array&  vl,  array&  v2,  num  a) 

{ 

for  (int  i=0;  i<N;  i++) 

*(e  +  i*step)  =  *(vl.e  +  i*vl.step)  +  a*(*(v2.e  +  i*v2.step)); 

} 

void  array  ::  add  (array&  vl,  array&  v2,  array&  v3,  num  a) 

{ 

for  (int  i=0;  i<N;  i++) 

*(e  +  i*step)  =  ’"(vl.e  +  i*vl.step)  +  *(v2.e  +  i*v2.step)  +  a*(’''(v3.e  +  i*v3.step)) 

}; 


// .  friends 


array  operator  +  (array&  vl,  array&  v2) 

{ 

array  res  (vl.N-1); 
for  (int  i=0;  i  <  res.N;  i++) 

*(res.e  +  i)  =  *(vl.e  +  i^vl-step)  +  *(v2.e  +  i*v2.step); 
return  (res); 


}; 


array  operator  *  (num  a,  array&  v) 

{ 

array  res  (v.N-1); 

for  (int  i=0;  Kres.N;  i++) 

*(res.e  +  i)  =  a*(’''(v.e  +  i*v.step)); 

return  (res); 


}; 


// -  num  *  data; 

int  matrix  ::  cont  =  0; 


matrix  ::  matrix  (int  N,  int  M,  int  Tmp) 

{  gc-H-;  mgc-H-; 

Ni  =  N+1 ;  Nj  =  M+1 ;  NN  =  Nj*Ni;  data  =  new  num  [NN]; 
typ  =  1 ;  chng  =  0;  own  =  NN;  tmp  =  Tmp;  id=++cont; 
memset  ((void*)data,  0,  NN*sizeof(num)); 

msg  (2,typ,id,own); 


} 


matrix  ::  matrix  (int  N) 

{  gc++;  mgc++; 

Ni  =  N+l;  Nj  =  N+l;  NN  =  Nj*Ni;  data  =  new  num  [NN]; 
typ  =  2;  chng  =  0;  own  =  NN;  tmp  =  0;  id=++cont; 
memset  ((void*)data,  0,  NN*sizeof(num)); 


} 


msg  (2,typ,id,own); 


matrix  ::  matrix  (const  matrix&  a,  int  Tmp) 

{  gc++;  mgc++; 


Ni  =  a.Ni;  Nj  =  a.Nj;  NN  =  Nj*Ni;  data  =  new  num  [NN]; 
typ  =  3;  chng  =  0;  own  =  NN;  tmp  =  Tmp;  id=++cont; 
memcpy  ((void*)data,  (void*)a.data,  NN*sizeof(num)); 

msg  (2,typ,id,own); 


} 


matrix  ::  matrix  (num  *  d,  int  Nl,  int  N2,  int  Tmp) 

{ 

Ni  =  Nl;  Nj  =N2;  NN  =  Nj*Ni;  data  =  d;  gc-H-;  mgc++; 
typ  =  4;  chng  =  0;  own  =  0;  tmp  =  Tmp;  id=++cont; 

msg  (2,typ,id,own); 


} 


matrix ::  -matrix  () 


{  gc-;  mgc--; 

if  (own)  delete  []  data; 
data  =  0;  Ni  =  0;  Nj  =  0; 

msg  (-2,typ,id,own); 


} 


matrix&  matrix  ::  operator  =  (const  matrix&  a) 

{ 

memcpy  ((void*)data,  (void^ja-data,  NN*sizeof(num)); 
return  (*this); 


} 


matrix&  matrix  operator  =  (num  a) 

{ 

for  (indx  i=0;  i<NN;  i++)  *(data+i)  =  a; 

return  (*this); 


} 

array  &  matrix  operator  []  ( int  i) 

{ 


return  (*new  array  ((data+i*Nj),  Nj,  1, 1)); 

} 


array  &  matrix ::  operator  ()  ( int  j ) 

{ 

return  (*new  array  ((data+j),  Ni,  Nj,  1)); 

} 

matrix&  matrix  operator  +=  (const  matrix&  a) 

{ 


for  (indx  i=0;  i  <  NN;  i++)  *(data+i)  +=  *(a.data+i); 
return  (*this); 


} 


matrix&  matrix  ::  operator  *=  (num  a) 


{ 

for  (indx  i=0;  i<NN;  i++)  *(data+i)  *=  a; 

return  (*this); 


} 


array  matrix  ::  col  (int  j) 

{ 

array  res  (Ni); 

for  (int  i=0;  i<Ni;  i++)  res[i]  =  *(data  +  i*Nj  +  j); 


// -  friends 


matrix  operator  +  (matrix&  al,  matrix&  a2) 

{ 

matrix  res  (al.Ni-1,  al.Nj-1); 

for  (indx  i=0;  i  <  al  .NN;  i++) 
res.data[i]  =  *(al.data+i)  +  a2.data[i]; 

return  (res); 


} 


matrix  operator  *  (num  x,  matrix&  a) 

{ 

matrix  res  (a.Ni-1,  a.Nj-1); 
for  (indx  i=0;  i  <  a.NN;  i++) 
res.data[i]  =  x*(a,data[i]); 

return  (res); 

}; 

//. - 


end. 


/***  PS_AXIS.H  ***/ 

#if  Idefmed  (_PS_AXIS_H) 
#defme  PS  AXIS  H 


#include  "ps  defs.h" 

//. - 

#defme  NBoundaryTypes  7 

enum  TBoundaryType 

{ 

ConductingBnd  =  0, 
OpenBnd, 
AxisymmetricBnd, 
PeriodicBnd, 
DielectricBnd, 
MirrorsymmetricBnd, 
IntemalBnd, 
InterRegionsBnd 
}; 

n - 

#defme  NAxeTypes  8 


enum  TAxeType 

{ 

XAxe  =  0, 

YAxe, 

RAxe, 

ZAxe, 

ThAxe, 

xlAxe, 

x2Axe, 

FiAxe, 

tAxe 

}; 

//. - 

#define  NUnitsTypes  10 

enum  TUnitsType 

{ 

arbitrUnits  =  0, 
mUnits, 
cmUnits, 
mmUnits, 
inchUnits, 
radUnits, 
dgrUnits, 
secUnits, 
nsUnits, 
msUnits, 
mcsUnits 
}; 

/*—==============================================  axis 

class  axis 

{ 

public: 

char  name  [LNGH  NAME]; 
char  units  [LNGH_UNITS]; 
int  id; 

num  org,  end; 
num  step,  scale; 
int  N; 
int  uid; 
int  OwnDraw; 
int  OwnEdit; 

axis  ( ):  id  (0),  uid  (0),  N  (1) 

{  org=0.0;  end=1.0;  scale=1.0;  step=1.0;  OwnDraw=OwnEdit=0; }; 
axis  (  char*,  num,  num=0.0  ); 
axis  (  const  int  at,  const  num  xl,  const  num  x2, 
const  int  n,  const  int  unts  =  0  ); 
axis  (  const  int  at,  const  num  xl,  const  num  x2, 
int  n,  char  *  untstr  ); 
axis  ( const  axis&  a ); 

~axis()  {}; 


void  Normalyze  ( ); 


void  ScaleTo  ( const  axis&  x ); 
void  Transform  ( const  axis&  x,  num(*F)(num)  ); 
virtual  void  Draw  ( num  Angle  )  { } ; 

virtual  void  Edit  ()  { } ; 

num  operator  ()  (num  i)  { return  org+i*step; }; 
protected: 

voidaxname  (intnd); 
void  axunits  ( int  ud ); 

}; 

/*===========================================  TGeomAxis  =*/ 

class  TGeomAxis  :  public  axis 

{ 

public: 

TBoundaryType  boundl,  bound2; 
public: 

TGeomAxis  () :  axis  ()  { }; 

TGeomAxis  (  const  TGeomAxis&  A  ); 

TGeomAxis  ( int  at,  num  xl,  num  x2, 

int  bndl,  int  bnd2,  int  n,  int  unts  =  0  ); 

}; 

/*=======================================  TPhysAxis  =*/ 

class  TPhysAxis  :  public  axis 

{ 

public: 

TPhysAxis  () :  axis  ()  {}; 

}; 

/♦============================================  TTimeAxis  =*/ 

class  TTimeAxis :  public  axis 

{ 

public: 

TTimeAxis  ()  :  axis  ()  {}; 

}; 

#endif 

/***  PS_AXIS.CPP  ***! 

#include  <string.h> 

#include  "ps_axis.h" 

/* _  axis _ */ 

axis  ::  axis  (char*  Nam,  num  En,  num  Or) 

{ 

id  =  0;  org  =  Or;  end  =  En;  uid  =  0;  N  =  1; 

axunits  (  uid  ); 
strcpy  (name,  Nam); 
step  =  (end  >  org)?  ((end-org)/N) :  -1.0; 
scale  =1.0/  step; 

OwnDraw  =  OwnEdit  =  0; 

}; 


axis  ::  axis  (const  axis&  a) 

{ 


id  =  a.id;  org  =  a.org;  end  =  a.end;  uid  =  a.uid; 
N  =  a.N;  step  =  a.step;  scale  =  a.scale; 
strcpy  (name,  a.name); 
strcpy  (units,  a.units); 

OwnDraw  =  OwnEdit  =  0; 

}; 


axis  ::  axis  ( const  int  at,  const  num  xl,  const  num  x2, 
const  int  n,  const  int  unts  ) 

{ 

id  =  at;  org  =  xl ;  end  =  x2;  N  =  n;  uid  =  unts; 

axname  (  at );  axunits  ( uid  ); 
step  =  (end  >  org)?  ((end-org)/N) :  -1.0; 
scale  =1.0/  step; 

OwnDraw  =  OwnEdit  =  0; 

}; 


axis  axis  (  const  int  at,  const  num  xl,  const  num  x2, 
int  n,  char*  untstr ) 

{ 

id  =  at;  org  =  xl;  end  =  x2;  N  =  n; 

axname  (  at ); 

strcpy  (units,  untstr);  uid  =  - 1 ; 

if  (stricmp  (units,  "arbitr"))  uid  =  0; 
if  (stricmp  (units,  "m"))  uid  =  2; 
if  (stricmp  (units,  "cm"))  uid  =  3; 
if  (stricmp  (units,  "mm"))  uid  =  4; 
if  (stricmp  (units,  "inchs"))  uid  =  5; 
if  (stricmp  (units,  "degrees"))  uid  =  6; 
if  (stricmp  (units,  "sec"))  uid  =  7; 
if  (stricmp  (units,  "ns"))  uid  =  8; 
if  (stricmp  (units,  "ms"))  uid  =  9; 
if  (stricmp  (units,  "mcs"))  uid  =  10; 
step  =  (end  >  org)?  ((end-org)/N)  :  -1.0; 
scale  =  1.0/  step; 

OwnDraw  =  OwnEdit  =  0; 

}; 


void  axis  ::  axname  ( int  nd  ) 

{ 

switch  ( nd ) 

{  case  0:  strcpy  (name,  "X");  break; 
case  1 :  strcpy  (name, " Y");  break; 
case  2:  strcpy  (name,  "R");  break; 
case  3:  strcpy  (name,  "Z");  break; 
case  4:  strcpy  (name,  "Th");  break; 
case  5:  strcpy  (name,  "Xl");  break; 
case  6:  strcpy  (name,  "X2");  break; 
case  7:  strcpy  (name,  "Fi");  break; 
case  8:  strcpy  (name,  "t");  break; 
default:  break; 

} 

}; 


r 


void  axis  ::  axunits  ( int  ud  ) 

{ 

switch  (  ud  ) 

{  case  0:  strcpy  (units,  "arbitr");  break; 
case  1 :  strcpy  (units,  "m");  break; 

case  2:  strcpy  (units,  "cm");  break; 

case  3:  strcpy  (units,  "mm");  break; 

case  4;  strcpy  (units,  "inchs");  break; 

case  5:  strcpy  (units,  "rad");  break; 
case  6:  strcpy  (units,  "degrees");  break; 
case  7:  strcpy  (units,  "sec");  break; 

case  8:  strcpy  (units,  "ns");  break; 

case  9:  strcpy  (units,  "ms");  break; 
case  10:  strcpy  (units,  "mcs");  break; 
default:  break; 

} 

}; 

void  axis  ::  Normalyze  () 

{ 

}; 

void  axis  ::  ScaleTo  (const  axis&  x) 

{ 

}; 

void  axis  ::  Transform  (const  axis&  x,  num(*F)(num)) 

{ 

}; 

H. - 

TGeomAxis  ::  TGeomAxis  (  const  TGeomAxis  &  A  ) 
:  axis  ( A.id,  A.org,  A.end,  A.N,  A.uid  ) 

{ 

bound  1  =  A.boundl; 
bound2  =  A.bound2; 

}; 

TGeomAxis  ::  TGeomAxis  ( int  at,  num  xl,  num  x2, 
int  bndl,  int  bnd2,  int  n,  int  unts  ) 

:  axis  (  at,  xl,  x2,  n,  unts ) 

{ 

bound  1  =  TBoundaryType  (  bndl  ); 
bound2  =  TBoundaryType  (  bnd2  ); 

}; 

// -  end. 

/***  PS_GEOM.H  ***/ 

#if  Idefmed  (_PS_GEOM_H) 

#defme  _PS_GEOM_H 

#include  "psdefs.h" 

template  <class  tip>  struct  para 

{ 


tipxl; 

tipx2; 

para()  {  xl  =  0;  x2=0;}; 

para  (para&  p)  {  xl  =  p.xl ;  x2  =  p.x2;  }; 
para  (tip  al,  tip  a2)  {xl  =  al;  x2  =  a2;}; 
para  operator  =  (para  a)  {  xl  =  a.xl;  x2  =  a.x2;  return  (*this);  }; 
para  operator  0  (tip  al,  tip  a2)  {  xl  =  al;  x2  =  a2;  return  (*this);  }; 
friend  int  operator  ==  (para  pi,  para  p2) 

{  return  ((pl.xl==p2.xl)&&(pl.x2==p2.x2))  ?  1  :  0;  }; 

}; 

struct  point 

{ 

numxl; 
num  x2; 

point  0  {xl=0.0;  x2  =  0.0;  }; 

point  (point&  p)  {xl=p.xl;  x2  =  p.x2;}; 
point  (num  al,  num  a2)  {xl=al;  x2  =  a2;  }; 
point  operator  =  (point  a)  {  xl  =  a.xl;  x2  =  a.x2;  return  (*this); }; 
point  operator  ()  (num  al,  num  a2)  {  xl  =  al;  x2  =  a2;  return  (*this); }; 
friend  int  operator  ==  (point  pi,  point  p2) 

{  return  ((pl.xl==p2.xl)&&(pl.x2==p2.x2))  ?  1  :  0; }; 

}; 

struct  pixel  { int  h;  int  v; }; 

struct  vect  { num  xl;  num  x2;  num  x3; }; 

struct  index  { int  il;  int  i2; }; 

struct  AXISTRUCT 

{ 

char  axtype; 
char  *  axname; 
char  *  units; 
char  *  lobound; 
char  ♦  upbound; 
char  ♦  bndtype; 

}; 

/****  TGeomFrameWork - ♦/ 

class  TGeomFrameWork 

{ 

public: 

static  int  geom  assigned; 
int  geom; 
protected: 

num  hi,  h2 ;  //  Space  steps  for  x  1 ,  x2 

num  asph,  asph2;  //  hl/h2  &  its  square 
intNl,  N2;  //Dimensions 
int  equih;  //  =0,  if  h  1  ,h2  -  const(x  1  ,x2) 
public: 

TGeomFrameWork  (  ); 
virtual  void  xl  (AXISTRUCT&  axe)  =  0; 
virtual  void  x2  (AXISTRUCT&  axe)  =  0; 
virtual  num  ds  (point  x,  point  h)  =  0; 


void  SetSteps  (num  dxl,  num  dx2,  int  eqx  =  0) 

{  hi  =  dxl ;  h2  =  dx2;  equih  =  eqx; 
asph  =  hl/h2;  asph2  =  asph*asph; }; 
virtual  void  LaplaceShablon  (point  x,  point  h, 

num&  xlm,  nuni&  xl,  nuni&  xlp, 

num&  x2m,  num&  x2,  num&  x2p,  num&  gf)  =  0; 

}; 

/****  TGeomXY - - - ♦/ 

class  TGeomXY  :  public  TGeomFrameWork 

{ 

public: 

TGeomXY  (  ); 

virtual  void  xl  (AXISTRUCT&  axe); 
virtual  void  x2  (AXISTRUCT&  axe); 
virtual  num  ds  (point  x,  point  h); 
virtual  void  LaplaceShablon  (point  x,  point  h, 

num&  xlm,  num&  xl,  num&  xlp, 
num&  x2m,  num&  x2,  num&  x2p,  num&  gf); 

}; 

/**♦*  TGeomRZ - */ 

class  TGeomRZ  :  public  TGeomFrameWork 

{ 

public: 

TGeomRZ  ( ); 

virtual  void  xl  (AXISTRUCT&  axe); 
virtual  void  x2  (AXISTRUCT&  axe); 
virtual  num  ds  (point  x,  point  h); 
virtual  void  LaplaceShablon  (point  x,  point  h, 

num&  xlm,  num&  xl,  num&  xlp, 
num&  x2m,  num&  x2,  num&  x2p,  num&  gf); 

}; 

/***♦  TGeomRTh - - - ♦/ 

class  TGeomRTh  :  public  TGeomFrameWork 

{ 

public: 

TGeomRTh  ( ); 

virtual  void  xl  (AXISTRUCT&  axe); 
virtual  void  x2  (AXISTRUCT&  axe); 
virtual  num  ds  (point  x,  point  h); 
virtual  void  LaplaceShablon  (point  x,  point  h, 

num&  xlm,  num&  xl,  num&  xlp, 
num&  x2m,  num&  x2,  num&  x2p,  num&  gf); 

}; 

/****  TGeomXlX2 - ♦/ 

class  TGeomXlX2  :  public  TGeomFrameWork 

{ 

public: 

TGeomXlX2  (  ); 

virtual  void  xl  (AXISTRUCT&  axe); 
virtual  void  x2  (AXISTRUCT&  axe); 
virtual  num  ds  (point  x,  point  h); 
virtual  void  LaplaceShablon  (point  x,  point  h, 

num&  xlm,  num&  xl,  num&  xlp, 
num&  x2m,  num&  x2,  num&  x2p,  num&  gf); 


}; 

H. - * 

//  TGeomFrameWork*  GFW; 

H - * 

#endif 

/***  PS_GEOM.CPP  ***/ 

#mclude  "ps_geom.h" 

!****  TGeomFrameWork - */ 

TGeomFrame  Work:  iTGeomFrame  Work  () 

{ 

hi  =  1.0;  h2  =  1.0;  equih  =  0;  asph  =  1.0;  asph2  =  1.0;  geom 

}; 

int  TGeomFrameWork::geom_assigned  =  -1; 

!****  TGeomXY - ♦/ 

TGeomXY::TGeomXY  () :  TGeomFrameWork  () 

{ 

geom  =  1 ; 

}; 


void  TGeomXY  ::  xl  (AX1STRUCT&  axe) 

{ 

axe.axtype  ='x'; 
axe.axname  =  "Length"; 
axe.imits  =  "cm"; 
axe.lobound  =  "Left"; 
axe.upbound  =  "Right"; 
axe.bndtype  =  "Open"; 

}; 


void  TGeomXY  ::  x2  (AX1STRUCT&  axe) 

{ 

axe.axtype  =  'x'; 
axe.axname  =  "Length"; 
axe.units  =  "cm"; 
axe.lobound  =  "Left"; 
axe.upbound  =  "Right"; 
axe.bndtype  =  "Open"; 

}; 


num  TGeomXY  ::  ds  (point  x,  point  h) 

{ 

return  (h.xl  *  h.x2); 

}; 


void  TGeomXY  ::  LaplaceShablon  (point  x,  point  h, 
num&  xlm,  num&  xl,  num&  xlp, 
num&  x2m,  num&  x2,  num&  x2p, 
num&  gfr  ) 

{ 

xlm  =  1.0;  xl=2.0;  xlp  =  1.0; 
x2m  =  asph2;  x2  =  2.0*asph2;  x2p  =  asph2; 


gfr  =  hl*hl; 


}; 


/*♦♦♦  TGeomRZ - */ 

TGeomRZ::TGeomRZ  ()  :  TGeomFrameWork  0 

{ 

geom  =  2; 

}; 


void  TGeomRZ  ::  xl  (AXISTRUCT&  axe) 

{ 

axe.axtype  ='x'; 
axe.axname  =  "Length"; 
axe.units  =  "cm"; 
axe.lobound  =  "Left"; 
axe.upbound  =  "Right"; 
axe.bndtype  =  "Open"; 

}; 


void  TGeomRZ  ::  x2  (AXISTRUCT&  axe) 

{ 

axe.axtype  ='x'; 
axe.axname  =  "Length"; 
axe.units  =  "cm"; 
axe.lobound  =  "Left"; 
axe.upbound  =  "Right"; 
axe.bndtype  =  "Open"; 

}; 


num  TGeomRZ  ds  (point  x,  point  h) 

{ 

return  (h.xl  *  h.x2); 

}; 


void  TGeomRZ  ::  LaplaceShablon  (point  x,  point  h, 
num&  xlm,  num&  xl,  num&  xlp, 
num&  x2m,  num&  x2,  num&  x2p, 
num&  gfr  ) 


{ 

asph  =  h.xl  /  h.x2;  asph2  =  asph  *  asph; 
xlm  =  (x.xl-0.5*h.xl)*asph2/x.xl; 
xlp  =  (x.xl+0.5*h.xl)*asph2/x.xl; 
xl  =  xlm  +  xlp +  2; 

gfr  =  h.xl*h.xl  *epsO; 
x2m  =  1.0; 
x2p  =  1.0; 
x2  =  x2m  +  x2p; 

}; 


/****  TGeomRTh - ♦/ 

TGeomRTh::TGeomRTh  0  :  TGeomFrameWork  0 

{ 

geom  =  3; 

}; 


void  TGeomRTh  ::  xl  (AXISTRUCT&  axe) 

{ 

axe.axtype  =  'x'; 
axe.axname  =  "Length"; 
axe.units  =  "cm"; 
axe.lobound  =  "Left"; 
axe.upbound  =  "Right"; 
axe.bndtype  =  "Open"; 

}; 


void  TGeomRTh  ::  x2  (AXISTRUCT&  axe) 

{ 

axe.axtype  ='x'; 
axe.axname  =  "Length"; 
axe.units  =  "cm"; 
axe.lobound  =  "Left"; 
axe.upbound  =  "Right"; 
axe.bndtype  =  "Open"; 

}; 


num  TGeomRTh  ::  ds  (point  x,  point  h) 

{ 

return  (x.xl  *  h.xl  *  h.x2);  //  r*dr*dth 

}; 


void  TGeomRTh  ::  LaplaceShablon  (point  x,  point  h, 
num&  xlm,  num&  xl,  num&  xlp, 
num&  x2m,  num&  x2,  num&  x2p, 
num&  gfr  ) 

{ 

xlm  =  1.0;  xl=2.0;  xlp  =1.0; 
x2m  =  asph2;  x2  =  2.0*asph2;  x2p  =  asph2; 
gfr  =  hl*hl; 

}; 

/♦***  TGeomXlX2 - */ 

TGeomXlX2::TGeomXlX2  () :  TGeomFrameWork  0 

{ 

geom  =  4; 

}; 


void  TGeomXlX2  ::  xl  (AX1STRUCT&  axe) 

{ 

axe.axtype  ='x'; 
axe.axname  =  "Length"; 
axe.units  =  "cm"; 
axe.lobound  =  "Left"; 
axe.upbound  =  "Right"; 
axe.bndtype  =  "Open"; 

}; 


void  TGeomXlX2  ::  x2  (AX1STRUCT&  axe) 

{ 


axe.axtype  ='x'; 


axe.axname  =  "Length"; 
axe.units  =  "cm"; 
axe.lobound  =  "Left"; 
axe.upbound  =  "Right"; 
axe.bndtype  =  "Open"; 


num  TGeomXlX2  ::  ds  (pomt  x,  pomt  h) 

{ 

return  (x.xl  *  h.xl  *  h.x2);  //  r*dr*dth 

}; 


void  TGeomXlX2  ::  LaplaceShablon  (point  x,  pomt  h, 
num&  xlm,  num&  xl,  num&  xlp, 
num&  x2m,  num&  x2,  num&  x2p, 
num&  gfr  ) 

{ 

xlm  =1.0;  xl=2.0;  xlp  =1.0; 
x2m  =  asph2;  x2  =  2.0*asph2;  x2p  =  asph2; 
gfr  =  hl*hl; 

}; 

/***  PS_MESH.H  *♦*/ 

#if  Idefmed  (_PS_MESH_H) 

#define  _PS_MESH_H 

#mclude  "ps_regn.h" 

class  TGridVal; 
class  TAbstrProcess; 

typedef  void  (*TApplicator)  (int,  bit); 

typedef  void  (TAbstrProcess::*TPrcsApplicator)  (bit,  bit); 

/* _ 

class  TAbstrMesh 

{ 

public: 

TGeomAxis  *X1,  *X2; 

TGeomFrameWork  *GFW; 

TAbstrRegion  *Rgn; 
static  bit  id  Mesh; 
bit  Status; 

bit  ic,  jc;  //  Current  Node  index 

num  X 1 ,  x2;  //  Boundaries  for  radius 

numyl,y2;  // Boundaries  for  z 

num  h  1 ,  h2;  //  Space  steps 

num  asph,  asph2; 

bit  Nx,  Ny;  //  Dimensions 

bit  N1 ,  N2;  //  Dbnensions 

bit  Ms; 

int  OwnDraw; 
bit  CanEdit; 
public: 


TAbstrMesh 


TAbstrMeshO  {}; 

TAbstrMesh  (int); 

TAbstrMesh  (const  TAbstrMesh&  aMesh,  int  Shift); 
virtual  -TAbstrMesh  (); 

void  Prepare  ()  {}; 

virtual  void  AllocateVal  ( TGridVal&  A,  long&  MeshSize,  int&  incr  )  =  0; 
virtual  void  DeAllocateVal  (  TGridVal&  A,  long&  MeshSize)  =  0; 

virtual  point  operator  ()  ( int  i,  int  j  )  =  0; 

virtual  unsigned  int  Offset  ( int  i,  int  j  )  =  0; 

virtual  void  ForAllNodes  (  TApplicator  )  =  0; 

virtual  void  ForAllNodes  ( TAbstrProcess&,  TPrcsApplicator )  =  0; 

virtual  void  ForAllInnerNodes  ( TApplicator  )  =  0; 

virtual  void  ForAllInnerNodes  (  TAbstrProcess&,  TPrcsApplicator  )  =  0; 

virtual  void  ForRow  (  num,  TApplicator  )  =  0; 

virtual  void  ForRow  ( TAbstrProcess&,  num,  TPrcsApplicator  )  =  0; 

virtual  void  LeapFrogNodes  (  TApplicator  )  =  0; 

virtual  void  LeapFrogNodes  (  TAbstrProcess&,  TPrcsApplicator  )  =  0; 

virtual  void  Resetindex  ()  { ic  =  jc  =  0; }; 
virtual  int  Nextindex  ( int&  i,  int&  j )  { i  =  ic;  j  =  ++jc;  return  0;}; 
virtual  int  Previndex  ( int&  i,  int&  j )  { i  =  ic;  j  =  --jc;  return  0;}; 
virtual  int  Topindex  ( int&  i,  int&  j )  { i  =  ++ic;  j  =  jc;  return  0;}; 
virtual  int  Downindex  ( int&  i,  int&  j )  { i  =  ~ic;  j  =  jc;  return  0;}; 

virtual  void  DrawMesh  (  )  {}; 
virtual  void  EditMesh  ( )  { } ; 
virtual  void  SaveMesh  0  {}; 
virtual  void  OpenMesh  0  {}; 

}; 

/* _  TMesh2D 

class  TMesh2D  :  public  TAbstrMesh 

{ 

public: 

TMesh2D  ():  TAbstrMesh  ()  {}; 

TMesh2D  (  TGeomAxis*  xl,  TGeomAxis*  x2  ); 

TMesh2D  (  TAbstrRegion*  aRgn ); 

virtual  unsigned  int  Offset  ( int  i,  int  j  )  {  return  (i*(N2-Nl)+j)/*sizeof(num)*/;}; 

virtual  num&  Centre  (  num  *  base  )  {  return  "'(base  +  Offset(ic,  jc  )); }; 

virtual  num&  West  (  num  *  base  )  {  return  *(base  +  Offset(ic-l  jc  )); }; 

virtual  num&  East  (num*  base)  {  return  *(base  +  Offset(ic+ljc  )); }; 
virtual  num&  North  (  num  *  base  )  {  return  *(base  +  Offset(ic,  jc+1));  }; 

virtual  num&  South  (  num  *  base  )  {  return  *(base  +  Offset(ic,  jc-1)); }; 

virtual  void  Shablon  ( int&  left,  int&  right,  int&  top,  int&  bottom ) 

{  left=ic-l;  right=ic+l;  top=jc+l;  bottom=jc-l;  }; 


virtual  point  operator  ()  ( int  i,  int  j )  { return  point((*Xl)(i),(*X2)(j));}; 
num  Coordl  (int  i )  {  return  (*Xl)(i); }; 
num  Coord2  (int  i )  {  return  (*X2)(i);  }; 
virtual  num  Interpolate  ( const  TGridVal&  F,  point  x  ); 
virtual  int  NearestRow  (  num  x )  =  0; 
virtual  int  NearestCol  (  num  x  )  =  0; 

virtual  int  CreateMesh  ()  {  return  0;}; 

}; 

/* _  TRegularMesh _ */ 

class  TRegularMesh  :  public  TMesh2D 

{ 

public: 

TRegularMesh  ():  TMesh2D  ()  {}; 

TRegularMesh  (TGeomAxis*  xl,  TGeomAxis*x2):  TMesh2D  (xl,x2)  {}; 

//  override  pure  abstract  methods 

virtual  void  AllocateVal  (  TGridVal&  A,  long&  MeshSize,  int&  incr  ); 
virtual  void  DeAllocateVal  (  TGridVal&  A,  long&  MeshSize  ); 
virtual  int  NearestRow  (  num  y  )  {  return  (int)((y  -  yl)/h2);  }; 
virtual  int  NearestCol  (  num  x )  {  return  (int)((x  -  xl)/hl);  }; 

virtual  void  ForAllNodes  (  TApplicator  Scheme  ); 

virtual  void  ForAllNodes  ( TAbstrProcess&  p,  TPrcsApplicator  Scheme ); 

virtual  void  ForAllInnerNodes  ( TApplicator  Scheme  ); 

virtual  void  ForAllInnerNodes  ( TAbstrProcess&  p,  TPrcsApplicator  Scheme ); 

virtual  void  ForRow  ( num  Xrow,  TApplicator  Scheme ); 

virtual  void  ForRow  ( TAbstrProcess&  p,  num  Xrow,  TPrcsApplicator  Scheme ); 

virtual  void  LeapFrogNodes  ( TApplicator  Scheme ); 

virtual  void  LeapFrogNodes  (  TAbstrProcess&  p,  TPrcsApplicator  Scheme  ); 

}; 

/* _  TCellsListMesh  _*/ 

class  TCellsListMesh  :  public  TMesh2D 

{ 

public: 

TCellsListMesh  ():  TMesh2D  ()  {}; 

}; 

/* _ TNonRectMesh  _ */ 

class  TNonRectMesh  :  public  TMesh2D 

{ 

public: 

TNonRectMesh  ():  TMesh2D  0  {}; 

}; 

/* _ 

class  TComplexMesh  :  public  TNonRectMesh 

{ 

public: 

TComplexMesh  ():  TNonRectMesh  ()  {}; 

}; 

/* 


TComplexMesh  _ */ 


TlDMesh  */ 


class  TlDMesh  :  public  TAbstrMesh 

{ 

public: 

TlDMesh  ():  TAbstrMesh  ()  {}; 

}; 

/* _ TSDMesh  _*/ 

class  TSDMesh  :  public  TAbstrMesh 

{ 

public: 

TSDMesh  ():  TAbstrMesh  ()  {}; 

}; 

/*_ _ TPhaseSpaceMesh  _*/ 

class  TPhaseSpaceMesh  :  public  TAbstrMesh 

{ 

public: 

TPhaseSpaceMesh  ():  TAbstrMesh  ()  {}; 

}; 

/* _  TSurfacesMesh  */ 

class  TSurfaceMesh  :  public  TlDMesh 

{ 

public: 

TSurfaceMesh  ():  TlDMesh  ()  {}; 

}; 

/♦ _ TInterlaceMesh */ 

class  TInterlaceMesh  :  public  TRegularMesh 

{ 

public: 

TInterlaceMesh  ():  TRegularMesh  ()  {}; 

}; 

/♦ -  end  --*/ 

#endlf 

/♦**  PS_MESH.CPP  ***/ 

#include  "ps_phval.h" 

#include  "ps_niesh.h" 

#include  "ps_procs.h" 

l****^,^,*:^*t*  TAbstrMesh - */ 

TAbstrMesh::TAbstrMesh  (int) 

{ 

} 

TAbstrMesh:  :TAbstrMesh  (const  TAbstrMesh&  aMesh,  int  Shift) 

{ 

} 

TAbstrMesh: :~TAbstrMesh  0  {} 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

TMesh2D::TMesh2D  (TGeomAxis*  xl,  TGeomAxis*  x2) 

{ 

XI  =  xl;  N1  =  Nx  =  (X1->N);  hi  =  (Xl->step); 

X2  =  x2;  N2  =  Ny  =  (X2->N);  h2  =  (X2->step); 


asph  =  (h2  >  0.0)?  (hl/h2)  :  (1.0);  asph2  =  asph  *  asph; 
int  k  =  N2;  int  m  =  0; 

while  (k  >  1)  {  k  /=  2;  ++m;  } 

Ms  =  ((1  «  m)  ==  N2)?  (m)  :  0; 

} 

H - 

TMesh2D::TMesh2D  (TAbstrRegion*  aRgn) 

{ 

XI  =  new  TGeomAxis  (  ); 

X2  =  new  TGeomAxis  (  ); 

} 

num  TMesh2D  ::  Interpolate  (const  TGridVal&  F,  point  x) 

{ 

return  0; 

} 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH 

void  TRegularMesh  ::  AllocateVal  (  TGridVal&  A,  long&  MeshSize,  int&  incr ) 

{ 

A.data  =  new  num  [MeshSize  =  (N1+1)*(N2+1)];  incr  =  Nl+l; 

} 

void  TRegularMesh  ::  DeAllocateVal(  TGridVal&  A,  long&  ) 

{ 

delete  []  A.data; 

} 

II. - 

void  TRegularMesh  ::  ForAllNodes  ( TApplicator  Scheme ) 

{ 

for  (int  i=0;  i<=Nl;  i++) 
for  (int  j=0;  j<=N2;  j++) 

Scheme  (ij); 

} 

void  TRegularMesh  ::  ForAllNodes  ( TAbstrProcess&  p,  TPrcs Applicator  Scheme  ) 

{ 

for  (int  i=0;  i<=Nl;  i++) 
for  (int  j=0;  j<=N2;  ]++) 

(p.*Scheme)  (iJ); 

} 

void  TRegularMesh  ::  ForAllInnerNodes  (  TApplicator  Scheme ) 

{ 

for  (int  i=l;  i<Nl;  i++) 
for  (intj=l;j<N2;j++) 

Scheme  (ij); 

} 

void  TRegularMesh  ::  ForAllInnerNodes  (  TAbstrProcess&  p,  TPrcsApplicator  Scheme  ) 

{ 

for  (int  i=l;  i<Nl;  i++) 
for  (int  j=l;  j<N2;  j++) 

(p.*  Scheme)  (iJ); 

} 

void  TRegularMesh  ::  ForRow  ( num  Xrow,  TApplicator  Scheme  ) 

{ 

int  iO  =  NearestRow  (Xrow); 
for(intj=l;j<N2;j++) 


Scheme  (iO  j); 

} 

void  TRegularMesh  ::  ForRow  ( TAbstrProcess&  p,  num  Xrow,  TPrcsApplicator  Scheme ) 

{ 

int  iO  =  NearestRow  (Xrow); 
for  (intj=l;j<N2;j++) 

(p.*Scheme)  (iOJ); 

} 

void  TRegularMesh  ::  LeapFrogNodes  ( TApplicator  Scheme  ) 

{ 

for(inti=l;  i<Nl;  i+=2) 
for(mtj=l;  j  <N2;  j+=2) 

Scheme  (i  j); 

} 

void  TRegularMesh  ::  LeapFrogNodes  ( TAbstrProcess&  p,  TPrcsApplicator  Scheme ) 

{ 

for(inti=l;  i<Nl;  i+=2) 
for(intj=l;  j<N2;  j+=2) 

(p.*Scheme)  (ij); 

} 

/*♦*  PS_PHVAL.H  ***/ 

#if  Idefmed  (_PS_PHVAL_H) 

#defme  _PS_PHVAL_H 

#include  "ps_axis.h" 

#include  "ps_array.h" 

#include  "ps_geom.h" 

class  TAbstrMesh; 

//  TAbstrPhysVal - 

class  TAbstrPhysVal 

{ 

public: 

TAbstrPhysVal  *  Next; 

TPhysAxis  *  Axis; 
num  Org,  End; 
num  Min,  Max; 
int  N; 

int  OwnDraw; 
public: 

TAbstrPhysVal  0; 

TAbstrPhysVal  ( const  TPhysAxis&  Ax  ); 

TAbstrPhysVal  ( const  TAbstrPhysVal&  P  ); 
virtual  -TAbstrPhysVal  ()  {  }; 

void  Create  ()  {}; 

void  Destroy  0  {}; 

void  Update  ()  {}; 

void  Redraw  ()  {}; 
void  Save  (); 
void  Restore  (); 

virtual  int  PlotsStep  ()  {  return  1; }; 


virtual  int  PlotsSize  ()  {  return  N;  }; 


virtual  TAbstrPhysVal  operator  =  ( const  TAbstrPhysVal&  A  ); 
virtual  TAbstrPhysVal  operator  +  ( const  TAbstrPhysVal&  A  ); 
virtual  TAbstrPhysVal  operator  -  ( const  TAbstrPhysVal&  A  ); 
friend  TAbstrPhysVal  operator  *  ( num  coef,  const  TAbstrPhysVal&  A ); 

}; 


//  TEulerVal - 

class  TEulerVal :  public  TAbstrPhysVal 

{ 

public: 

TAbstrMesh  *  Mesh; 
public: 

TEulerVal  () :  TAbstrPhysVal  0  { }; 

num  operator  ()  ( point  x )  {  return  0; } ; 

num  operator  ()  ( int  i,  int  j )  {  return  0; }; 

}; 


//  TLagrangeVal - 

class  TLagrangeVal :  public  TAbstrPhysVal 

{ 

public: 

TLagrangeVal  () :  TAbstrPhysVal  0  { }; 

}; 


//  THistoricVal - 

class  THistoricVal :  public  TAbstrPhysVal 

{ 

public: 

THistoricVal  () :  TAbstrPhysVal  ()  { } ; 

}; 


//  TGridVal - 

class  TGridVal :  public  TEulerVal 

{ 

public: 

num  *  data; 
public: 

TGridVal  () :  TEulerVal  ()  {  }; 

}; 


//  TFunctionVal - 

class  TFunctionVal :  public  TEulerVal 

{ 

public: 

TFunctionVal  () :  TEulerVal  ()  {  }; 

}; 


//  TDoubleGridVal - 

class  TDoubleGridVal :  public  TGridVal 

{ 


public: 

TDoubleGridVal  () :  TGridVal  ()  {  }; 

}; 

//  TBeamVal - 

class  TBeamVal :  public  TLagrangeVal 

{ 

public: 

TBeamVal  ()  :  TLagrangeVal  0  { 

}; 

II. - 

#endif 

!***  PS_PHVAL.CPP  ***! 

#include  "ps_phval.h" 

/* -  TAbstrPhysVal  --*/ 

TAbstrPhysVal ::  TAbstrPhysVal  () 

{ 

}; 

TAbstrPhysVal ::  TAbstrPhysVal  (  const  TPhysAxis&  Ax  ) 

{ 

}; 

TAbstrPhysVal ::  TAbstrPhysVal  ( const  TAbstrPhysVal&  P ) 

{ 

}; 

void  TAbstrPhysVal ::  Save  ( ) 

{ 

}; 

void  TAbstrPhysVal ::  Restore  (  ) 

{ 

}; 

TAbstrPhysVal  TAbstrPhysVal::operator  =  (  const  TAbstrPhysVal&  A  ) 

{ 

return  *this; 

}; 

TAbstrPhysVal  TAbstrPhysVal::operator  +  (  const  TAbstrPhysVal&  A  ) 

{ 

return  *this; 

}; 

TAbstrPhysVal  TAbstrPhysVal::operator  -  (  const  TAbstrPhysVal&  A  ) 

{ 

return  *this; 

}; 

TAbstrPhysVal  /*  friend  */  operator  *  (  num  coef,  const  TAbstrPhysVal&  A  ) 

{ 

TAbstrPhysVal  tmp; 
return  tmp; 

}; 

/***  PS_REGN.H  ***! 

#if  [defined  (_PS_REGN_H) 

#define  PS  REGN  H 


#include  "ps_geom.h' 
#include  "ps  axis.h" 

/****  TBoundary  - 


II 


,♦/ 


class  TBoundary 

{ 

static  TBoundary  *  CurrentBnd; 
public: 

point  Org; 
point  End; 

TBoundaryType  BndType; 
int  OwnDraw; 

TBoundary  *  PrevBnd; 

TBoundary  *  NextBnd; 
public: 

TBoundary  ()  {  Org  =  point  (0.0,  0.0); 

End  =  point  (1.0,  1.0); }; 

TBoundary  ( point  xl,  point  x2, 

TBoundaryType  bt  =  ConductingBnd  ); 
TBoundary  (  point  xl,  point  x2, 

TBoundaryType  bt,  TBoundary  *  nxt ); 
TBoundary  ( point  x2, 

TBoundaryType  bt,  TBoundary  *  nxt ); 
TBoundary  ( TBoundary*  frm,  point  x2, 

TBoundaryType  bt  =  ConductingBnd  ); 
int  ConnectWith  ( TBoundaty  *  bl,  TBoundary  *  b2 ); 


/****  TAbstrRegion - ♦/ 

class  TAbstrRegion 

{ 

public: 

int  Type; 
int  OwnDraw; 
int  CanEdit; 
int  NBounds; 

TBoundary  *  BoundaryList; 

TAbstrRegion  *  Next; 
public: 

TAbstrRegion  ()  { Next  =  0;  Type  =  0;  }; 
TAbstrRegion  ( num,  num,  num,  num  ); 
virtual  int  Isinner  (point  x)  {  return  0;  }; 
virtual  TGeomAxis*  Xl  ( )  {  return  0;  }; 

virtual  TGeomAxis*  X2  (  )  {  return  0;  } ; 

}; 


/****  TRectangleRgn - */ 

class  TRectangleRgn  :  public  TAbstrRegion 

{ 

protected: 


TGeomAxis  *  xl; 

TGeomAxis  *  x2; 

num  X 1  min,  X 1  max;  //  Boundaries  for  x  1 
num  x2min,  x2max;  //  Boundaries  for  x2 
private; 

numhxl,  hx2;  //Space  steps 
num  asph,  asph2; 
intNxl,  Nx2;  //Dimensions 
public: 

TRectangleRgn  () :  TAbstrRegion  ()  {  Type  =  10;  }; 
TRectangleRgn  ( num,  num,  num,  num ); 

TRectangleRgn  (  TGeomAxis  *  axl,  TGeomAxis  *  ax2  ); 
virtual  int  Isinner  (point  x)  {  return  ( (x.xl  >  xlmin)&& 

(x.xl  <  xlmax)&& 

(x.x2  >  x2min)&& 

(x.x2  <x2max) ); }; 

int  AssignBounds  ( TGeomAxis  *  axl,  TGeomAxis  *  ax2  ); 
TGeomAxis*  X 1  ()  {  return x  1 ;  } ; 

TGeomAxis*  X2  (  )  {  return  x2;  }; 

}; 


/♦*♦*  TRectRgnRZ - */ 

class  TRectRgnRZ  :  public  TRectangleRgn 

{ 

protected: 

num  Rl,  R2;  //  Boundaries  for  radius 

num  Z 1 ,  Z2;  //  Boundaries  for  z 

num  hr,  hz;  //  Space  steps 
int  Nr,  Nz;  //  Dimensions 
public; 

TRectRgnRZ  ()  :  TRectangleRgn  ()  {  Type  =  12;  }; 
TRectRgnRZ  ( num,  num,  num,  num  ); 
num  rad  ( int  j  )  {  return  Rl  +  j*hr; }; 
num  rad  ( num  x  )  {  return  Rl  +  x*hr;  }; 


/****  TSimpleRegion - */ 

class  TSampleRgn  :  public  TAbstrRegion 

{ 

public: 

TSampleRgn  ()  :  TAbstrRegion()  {  Type  =  20;  }; 

}; 

// - end 

#endif 

/***  PS_REGN.CPP  ***/ 

#include  "ps  regn.h" 

TBoundary - */ 

TBoundary*  TBoundary::CurrentBnd  =  0; 


TBoundary: :TBoundary  (  point  xl,  point  x2,  TBoundaryType  bt ) 

{ 


Org  =  xl;  End  =  x2;  BndType  =  bt; 

PrevBnd  =  CurrentBnd; 

NextBnd  =  0; 

CurrentBnd  =  this; 

} 

TBoundary::TBoundary  (  point  xl,  point  x2,  TBoundaryType  bt,  TBoundary  *  nxt ) 

{ 

Org  =  xl;  End  =  x2;  BndType  =  bt; 

PrevBnd  =  CurrentBnd; 

NextBnd  =  nxt; 

CurrentBnd  =  this; 

} 

TBoundary:  :TBoundary  ( point  x2,  TBoundaryType  bt,  TBoundary  *  nxt ) 

{ 

Org  =  CurrentBnd->End;  End  =  x2;  BndType  =  bt; 

PrevBnd  =  CurrentBnd; 

NextBnd  =  nxt; 

CurrentBnd  =  this; 

} 

TBoundary:  :TBoundary  (  TBoundary  *frni,  point  x2,  TBoundaryType  bt ) 

{ 

Org  =  frm->End;  End  =  x2;  BndType  =  bt; 

PrevBnd  =  frm; 

NextBnd  =  0; 

CurrentBnd  =  this; 

} 

int  TBoundary: :ConnectWith  ( TBoundary  *btl,  TBoundary  *bt2  ) 

{ 

PrevBnd  =  btl ; 

NextBnd  =  bt2; 

return  ( (btl->End  =  Org)  &&  (bt2->Org  =  End)  ); 

} 

/♦****♦*♦♦♦♦♦  TAbstrRegion - */ 

TAbstrRegion::TAbstrRegion  (  num,  num,  num,  num  ) 

{ 

OvraDraw  =  0; 

} 

/^^i^****^f^f***^^  xRectangleRgn - */ 

TRectangleRgn::TRectangleRgn  (  num,  num,  num,  num  ) 

:TAbstrRegion  () 

{ 

} 

TRectangleRgn::TRectangleRgn  (  TGeomAxis  *  axl,  TGeomAxis  *ax2  ) 
:TAbstrRegion  () 

{  OwnDraw  =  CanEdit  =  0; 
xl  =  new  TGeomAxis  (  *axl  ); 
x2  =  new  TGeomAxis  (  *ax2  ); 

X 1  min  =  ax  1  ->org;  x  1  max  =  ax  1  ->end; 
x2min  =  ax2->org;  x2max  =  ax2->end; 


NBounds  =  4; 

//  BoundaryList  =  new  TBoundary 

//  (  point  (xlmin,  x2min),  point  (xlmax,  x2min), 

//  TBoundaryType(  ax2->boundl) ); 

//  new  TBoundary 

//  (  point  (xlmax,  x2max),  PeriodicBnd, 

//  new  TBoundary 

//  (  point  (xlmin,  x2max),  ConductingBnd, 

//  new  TBoundary 

//  (  point  (xlmin,  x2min),  PeriodicBnd, 

//  BoundaryList )))); 

} 

int  TRectangleRgn::AssignBounds  (  TGeomAxis  *  axl,  TGeomAxis  *ax2  ) 

{ 

xlmin  =  axl->org;  xlmax  =  ax  l->end; 
x2min  =  ax2->org;  x2max  =  ax2->end; 

NBounds  =  4; 

BoundaryList  =  new  TBoundary 

( point  (xlmin,  x2min),  point  (xlmax,  x2min),  AxisymmetricBnd, 
new  TBoundary 

( point  (xlmax,  x2max),  PeriodicBnd, 
new  TBoundary 

( point  (xlmin,  x2max),  ConductingBnd, 
new  TBoundary 

( point  (x  1  min,  x2min),  PeriodicBnd, 

BoundaryList )))); 

return  0; 

} 

^4<**<K:»***t***  TRectRgnRZ - */ 

TRectRgnRZ::TRectRgnRZ  (  num,  num,  num,  num  ) 

:TRectangleRgn  () 

{ 

} 

// -  end. 


2.  VISUALIZATION  CLASSES 

This  part  of  the  library  is  base  on  the  GUI-interface  of  the  OWL  Library 
compiled  at  Borland.  The  major  classes  developed  to  display  in  the  child 
windows  are  based  on  the  abstract  class  TBasePlotswin. 

uAAAAAAAAAAAAAi, 

^TBasePlotsWinAAAAi, 

AAAAAAAAAAAAAAu  ’ 

’TSurfacePlot  ’ 

AAaAaAAAAAAAAA' 

^TLinesPlot  AAA^ 

AAAAAAAAAAAAAAlJ  = 

^TRegionPlot  ^ 

AAAAAAAAAAAAAA' 

^TPointsPlot  ^ 


AAAAAaaAaaAAAaij 


l^iiti^:)):****************************************************************/ 
I*  ♦/ 

/*  ObjectOriented  PIC  for  C++  */ 

/*  Version  1.00  */ 

/*  Copyright  (c)  1993, 1994  The  Group  Compuetr  Simulation  */ 

/*  High  Current  Electronics  Institute  */ 

/♦  Contract  SPC93-4035(F6170893W0612)  */ 

/*  */ 

/*  Last  write  10-20-94  */ 

liltilf!ti*******»li*ili**********if**t*************ilf*********>lf*****************/ 

/*  PS_GRAPH.H  ♦/ 

//  Graphics  window  object  header 

#ifhdef_PS_GRAPH_H 

#defme  _PS_GRAPH_H 

class  OWLCLASS  TFrameWindow; 
class  _OWLCLASS  TStatic; 
class  OWLCLASS  TPen; 

#include  "ps_plots.h" 

#include  "ps_phval.h" 

#include  "ps_regn.h" 

#include  "ps_idres.rh" 

const  int  WM_PW_CLOSED  =  WM_USER  +  100; 

/* - TBaseGraphWin - ♦/ 

//  Abstract  Base  class  for  Graphic  Control. 

//  Separated  to  easy  change  general  ancestor  Window  class, 

//  e.g.  -  TFrameWindow  ->  TMDIChild,  TDecoratedFrame  or  TTinyCaption 

// 

class  TBaseGraphWin  :  public  TFrameWindow 

{ 

public: 

TBaseGraphWin  (TWindow*  parent,  char*  title, 

TModule*  inst  =  0  ); 

virtual  LPSTR  GetClassName  ()  {  return  "BaseGraphWin";  }; 
virtual  void  TimerTickQ  {};  //- default  placeholder 

virtual  void  Animate  0  {};  //- default  placeholder 

void  EvDestroyO;  //- post  message 

int  pwid; 
protected: 

TWindow  *mastwin; 

TModule  *mastapp; 

DECLARE_RESPONSE_TABLE  ( TBaseGraphWin  ); 

}; 


*/ 


/* - TGraphWin - 

class  TGraphWin  :  public  TBaseGraphWin 

{ 


protected: 

BOOL  Iconized; 

BOOL  Scaled; 

BOOL  Isotropic; 

BOOL  Decorated; 

BOOL  Paused; 
public: 

TRect  Clnt; 

TPlotsList  *  PlotsList;  //  Plots  Elements 

protected: 

int  pwLengthX,  pwLengthY;  // Window  Size  in  pixels 
int  pwLeft,  pwRight;  //  Viewport  coord  rel  Window 
int  pwTop,  pwBottom;  //  " " " 

public: 

TGraphWin  ( TWindow*  parent,  char*  title, 

TModule*  inst  =  0 ); 
virtual  -TGraphWin  (); 

virtual  void  GetWindowClass(  WNDCLASS&  WndClass  ); 
virtual  void  SetupWindow  (); 

virtual  LPSTR  GetClassName  ()  {  return  "GraphicWindow";  }; 
protected: 

virtual  void  ScaleTo  ( int  Xs,  int  Ys ); 

virtual  void  Paint  ( TDC&  dc,  BOOL  erase,  TRect&  rect ); 
virtual  void  EvSysCommand  ( UINT  id,  TPoint&  pt); 
virtual  void  EvLButtonDown  ( UINT,  TPoint&  ); 
virtual  void  EvRButtonDown  (  UINT,  TPointA  ); 
virtual  void  EvSize  ( UINT,  TSize&  size  ); 
private: 

void  DlgSettings  (); 
void  DlgAddPlot  (); 
void  DlgDelPlot  (); 

public: 

void  AssignList  (TPlotsList  *  pi)  {  PlotsList  =  pi;  }; 
void  LinkPlot  (TBasePlot  *  bp)  {  PlotsList  ->  Ins  (bp); }; 
virtual  void  TimerTick(); 
virtual  void  Animate  (); 

DECLARE_RESPONSE_TABLE  (TGraphWin); 

}; 


/* - TLinesGraphWin - 

class  TLinesGraphWin  :  public  TGraphWin 

{ 

protected: 

int  pwNx,  pwNy;  //  Axis  Draw  digits 

char  cwXfmt  [LNGH  FMT];  //  and  its  format 

char  cwYfmt  [LNGH_FMT];  //  "" 

num  rwHx,  rwHy;  // 

num  rwScaleX,  rwScaleY; 

num  rwSizeX,  rwSizeY; 

num  rwStepX,  rwStepY; 


num  rwOrgX,  rwOrgY;  // Geometry  limits  in 

num  rwEndX,  rwEndY;  //  physical  units 

char  cwName  [LNGH  TITLE]; 
char  cwXname  [LNGH  AXIS]; 
char  cwYname  [LNGH  AXIS]; 
char  cwXunits  [LNGH  UNITS]; 
char  cwYunits  [LNGH  UNITS]; 
public: 

TLinesGraphWin  ( TWindow*  parent,  char*  title, 
axis*  hrz,  axis*  vrt, 

TModule*  inst  =  0 ); 
virtual  -TLinesGraphWin  (); 

virtual  void  DrawMesh  ( TDC&  dc  ); 
virtual  void  Draw  Axis  (  TDC&  dc ); 

virtual  void  DrawBounds  ( TDC&  dc ); 
virtual  void  DrawComments  ( TDC&  dc  ); 
protected; 

int  lex  (  num  x )  {  return  (int)(rwScaleX*(x  -  rwOrgX)+pwLeft); }; 
int  Icy  (  num  y  )  {  return  (int)(nvScaleY*(rwEndY  -  y)+pwTop); }; 
num  Xci  ( int  i )  {  return  (rwOrgX  +  rwStepX*(i-pwLeft));  }; 
num  Yci  ( int  i )  {  return  (rwEndY  -  rwStepY*(i-pwTop)); }; 
virtual  void  ScaleTo  ( int  Xs,  int  Ys  ); 

virtual  void  Paint  ( TDC&  dc,  BOOL  erase,  TRect&  rect ); 
virtual  void  EvLButtonDown  ( UINT,  TPoint&  ); 
virtual  void  EvSize  ( UINT,  TSize&  size  ); 
public: 

virtual  void  TimerTickQ; 
virtual  void  Animate  (); 
protected: 

long  TextClr, 

NameClr, 

MeshClr, 

PlotClr; 

TPen  *  TextPen, 

*  MeshPen, 

*  PlotPen; 

char  txt  [LNGH_COMMENT]; 

TStatic  *  StaticControl; 
int  TextHeight; 

DECLARE_RESPONSE_TABLE  (TLinesGraphWin); 

}; 

/* - TRegionGraphWin - */ 

class  TRegionGraphWin  :  public  TLinesGraphWin 

{ 

private; 

int  pwMeshX,  pwMeshY;  // Mesh  Dimension 
TBoundaryType  pwLeftBnd,  pwRightBnd,  // 
pwTopBnd,  pwBottomBnd;  // 


public: 


TRegionGraphWin  (TWindow*  parent,  char*  title, 
TGeomAxis*  hrz,  TGeomAxis*  vrt, 

TModule*  inst  =  0 ); 

TRegionGraphWin  (TWindow*  parent,  char*  title, 
TRectangleRgn*  rgn, 

TModule*  inst  =  0 ); 

virtual  LPSTR  GetClassName  ()  {  return  "RegionPlot";  }; 

void  ExamplePaint  ( TDC&  dc  ); 
virtual  void  DrawMesh  ( TDC&  dc  ); 
virtual  void  Draw  Axis  ( TDC&  dc ); 

virtual  void  DrawBounds  ( TDC&  dc  ); 
virtual  void  DrawComments  ( TDC&  dc  ); 
protected: 

TPen*  Pen  (TBoundaryType  ind); 
long  BndColor  (TBoundaryType  ind); 
virtual  void  Paint  ( TDC&  dc,  BOOL  erase,  TRect&  rect ); 
protected: 

long  BndOpenClr, 

BndMetalClr, 

BndSymClr, 

BndPeriodClr; 

TPen  *  BndOpenPen, 

*  BndMetalPen, 

*  BndSymPen, 

*  BndPeriodPen; 

}; 

//. - 

#endif  //  ifiidef  _PS_GRAPH_H 

//  PS_GRAPH.CPP  ****** 

#if  defined  CSPRT_PLOTS_PCH) 

llllllllllllllllllllllllllllllllllllll 

#pragma  hdrfile  "d:\picsini\obj\_plots.csm" 

#include  <stdllb.h> 

#include  <stdio.h> 

#include  <math.h> 

#include  <typeinfo.h> 

#include  <owl\dialog.h> 

#include  <owl\checkbox.h> 

#include  <owl\static.h> 

#include  <owl\combobox.h> 

#include  <owl\edit.h> 

#include  <owl\groupbox.h> 

#include  <owl\radiobut.h> 

#include  <owl\dc.h> 

#include  <owl\franiewin.h> 

#include  <owl\applicat.h> 

#pragma  hdrstop 

#else 

lllllllllllllllllllllllllllllllllllll 

#pragnia  hdrfile  "f:\picsini\obj\_allpch.csm" 

#defme_ALLPCH 
#include  <_allpch.h> 


#pragma  hdrstop 


#endif 

lllllllllllllllllllllllllllllllllllll 

#include  "ps  idres.rh" 

#mclude  "ps  dlgOl.rh" 

#include  "ps  menul.rh" 

#mclude  "ps  strOl.rh" 

#include  "ps^graph.h" 

static  int  WinCount  =  0; 
static  int  Debug  =  0; 

^ 1 1  ]|C 9fe  jfi ^ i|c 1 sit  :|c ]|e ](c 9)e )|e  )|e ]|C ift  :1c )te  t  j(e )(( % 9(C 

struct  TGraphDlgStructl 

{ 

BOOL  svDecor; 

BOOL  svScale; 

BOOL  svisotr; 

}; 

n - 

class  TGraphDlgl  :  public  TDialog 

{ 

public: 

TGraphDlgl  (TWindow*  parent,  int  resid,  TGraphDlgStructl  &  ts); 

}; 

TGraphDlgl  ::  TGraphDlgl  (TWindow*  parent,  int  resid,  TGraphDlgStructl  &  ts) 

:  TDialog  (parent,  resid),  TWindow  (parent) 

{ 

new  TCheckBox  (this,  idc  checkl,  0); 
new  TCheckBox  (this,  idc_check2,  0); 
new  TCheckBox  (this,  idc  checkS,  0); 

TransferBuffer  =  (void  far*)&ts; 

}; 
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struct  TGraphDlgStruct2 

{ 

TComboBoxData  svPlots; 

}; 

H- - 

class  TGraphDlg2  :  public  TDialog 

{ 

public: 

TGraphDlg2  (TWindow*  parent,  int  resid,  TGraphDlgStruct2  &  ts); 

}; 

TGraphDlg2  ::  TGraphDlg2  (TWindow*  parent,  int  resid,  TGraphDlgStruct2  &  ts) 

:  TDialog  (parent,  resid),  TWindow  (parent) 

{ 

new  TComboBox  (this,  idc  combol,  MXCOMBO); 

TransferBuffer  =  (void  far*)&ts; 

}; 


/^**^f***if4*******  XBaseGraphWin 


*/ 


DEFINE_RESP0NSE_TABLE1  (TBaseGraphWin.TWindow) 
EV_WM_DESTROY, 

END_RESPONSE_TABLE; 

//. - 

XBaseGraphWin  ::  XBaseGraphWin  (XWindow*  parent,  char*  title, 
XModule*  inst ) 

:  XFrameWindow  ( parent,  title,  0,  FALSE,  inst ) 

{ 

mastwin  =  parent;  mastapp  =  inst;  pwid  = -H-WinCount; 

}; 

II. - 

void  XBaseGraphWin;  :EvDestroy  () 

{ 

Parent->PostMessage  ( WM_PW_CLOSED,  pwid  ); 

XFrameWindow:  :EvDestroy(); 

}; 


#defme  cms_Settings  201 
#defme  cms_AddPlot  202 
#defme  cms_DelPlot  203 
#defme  cms_Revision  209 

XGrflphWill  —————————— _ — */ 

DEFINE_RESP0NSE_XABLE1  (XGraphWin,  XBaseGraphWin) 
EV_WM_SIZE, 

EV_WM_SYSCOMMAND, 

EV_WM_LBUXXONDOWN, 

EV_WM_RBUXXONDOWN, 

END_RESPONSE_XABLE; 

//. - 

XGraphWin  ::  XGraphWin  (XWindow*  parent,  char*  title, 

XModule*  inst ) 

:  XBaseGraphWin  (parent,  title,  inst), 

PlotsList  (  0  ) 

{ 

Attr.Style  =  WS_VISIBLE  |  WS_POPUP  |  WS_OVERLAPPEDWINDOW; 
Attr.X  =  70  +  15*WinCount; 

Attr.Y  =  50  +  10*WinCount; 

Attr.W  =  500; 

Attr.H  =  300; 

Iconized  =  Scaled  =  Isotropic  =  Paused  =  FALSE;  Decorated  =  XRUE; 
pwLeft  =  8*7;  pwRight  =  8*9; 

pwXop  =  16*2;  pwBottom  =  16*3; 

pwLengthX  =  Attr.W  -  (pwLeft  +  pwRight);  //  work  area  width 

pwLengthY  =  Attr.H  -  (pwXop  +  pwBottom);  //  work  area  height 

Clntleft  =  pwLeft;  Clntright  =  pwLeft  +  pwLengthX; 


Clnt.top  =pwTop;  Clntbottom  =  pwTop  +pwLengthY; 

}; 

//. - 

TGraphWin ::  -TGraphWin  () 

{ 

if  (PlotsList)  delete  PlotsList; 

}; 

//. - 

void  TGraphWin:  :GetWmdowClass(  WNDCLASS&  WndClass  ) 

{ 

TBaseGraphWin::GetWindowClass(  WndClass  ); 

WndClass.hbrBackground  =  (HBRUSH)  GetStockObject  (BLACKBRUSH); 
//  WndClass.hIcon  =  0; 

//  WndClass.hIcon  =  mastapp  ->  Loadicon  ("idilconPiCppl"); 

WndClass.hIcon  =  HICON  (TIcon  (HINSTANCE(*mastapp),  idiIconPiCpp2)); 

}; 

//. - 

void  TGraphWin::  Setup  Window  () 

{ 

HMENUhSysMnu; 
char  captio  [25]; 
charnumero  [10]; 

//  intlc; 

TBaseGraphWin::SetupWindow  0; 
itoa  ( WinCount,  numero,  10 ); 

/*  Ic  =  */  GetWindowText  (captio,  24); 
strcat  (captio, "  Win="); 
strcat  (captio,  numero); 

SetWindowText  (captio); 
hSysMnu  =  GetSystemMenu  (  ); 

AppendMenu  (hSysMnu,  MF  SEPARATOR,  0,  NULL); 

AppendMenu  (hSysMnu,  MF  STRING,  cms  Settings,  "&Settings..."); 
AppendMenu  (hSysMnu,  MF_SEPARATOR,  0,  NULL); 

AppendMenu  (hSysMnu,  MF_STRING,  cms  AddPlot,  "&Add  Plot..."); 
AppendMenu  (hSysMnu,  MF  STRING,  cms  DelPlot,  "&Delete  Plot..."); 
AppendMenu  (hSysMnu,  MF  STRING,  cms  Revision,  "&Revision..."); 

}; 

/^ - 

void  TGraphWin:  :EvSize(  UINT  sizeType,  TSize&  size  ) 

{ 

int  NewXmax,  NewYmax; 

TRect  clnt  =  GetClientRect  0; 

TBaseGraphWin::EvSize  (sizeType,  size); 

Invalidate  (TRUE); 

NewXmax  =  clnt.right  -  (pwLeft  +  pwRight); 

NewYmax  =  clnt.bottom  -  (pwTop  +  pwBottom); 
if  (sizeType  ==  SIZE_MINIMIZED) 

{  if  (!  Iconized)  {  Iconized  =  TRUE;  } 

} 

else 

{  if  (Iconized)  Iconized  =  FALSE; 
if  (Scaled)  ScaleTo  (NewXmax,  NewYmax); 

}; 

Clntleft  =  pwLefl;  Clntright  =  pwLeft  +  pwLengthX; 


Clnttop  =pwTop;  Clntbottom  =  pwTop  +pwLengthY; 

}; 

n - 

void  TGraphWin::EvSysCommand  (UINT  id,  TPoint&  pt) 

{ 

switch  (id) 

{ 

case  cms  Settings:  DlgSettings  ();  break; 

case  cms  AddPlot :  DlgAddPlot  ();  break; 

case  cms  DelPlot :  DlgDelPlot  ();  break; 

case  cmsRevision: 

{ 

if  (PlotsList)  PlotsList  ->  Revision  (); 

else  MessageBox  ("PlotsList  is  Empty!  ","",MB_OK); 
break; 

} 

default;  TBaseGraphWin::EvSysCommand  (id,  pt); 

} 

}; 

//. - 

void  TGraphWin;:DlgAddPlot  () 

{ 

TGraphDlgStruct2  ds2; 

ds2.svPlots.AddStringItem  ("Text  Element",  0); 

ds2.svPlots.AddStringItem  ("Axis  Element",  1); 

ds2.svPlots.AddStringItem  ("Boundary  Element",  2); 
ds2.svPlots.AddStringItem  ("Frame  Element",  3); 
ds2.svPlots.AddStrlngItem  ("Region  Element",  4); 
ds2.svPlots.AddStringItem  ("Mesh  Element",  5); 

ds2.svPlots.AddStringItem  ("Line  Element",  6); 

ds2.svPlots.AddStringItem  ("Func  Element",  7); 

ds2.svPlots.AddStringItem  ("GridValue  Element",  8); 
ds2.svPlots.Select  (0); 

if  (  TGraphDlg2  (this,  iddGraph2,  ds2).Execute  0  ==  IDOK  ) 

{ 

TBasePlot  *  NP  =  0; 
int  Sel  =  ds2.svPlots.GetSelIndex(); 
switch  (  Sel ) 

{  case  0  :  NP  =  new  TTextPlot  (this);  break; 

case  1  :  NP  =  new  TAxisPlot  (this);  break; 

} 

if  ( NP  )  PlotsList  ->  Ins  (NP); 

} 

}; 

II. - 

void  TGraphWin::DlgDelPlot  0 

{ 

TGraphDlgStruct2  ds2;  int  k  =  0;  char  buf  [80]; 
while  (++k  <=  (PlotsList  ->Ne)) 

{  PlotsList  ->  Element  (  buf,  k  ); 
ds2.svPlots.AddStringItem  (  buf,  k-1  ); 

} 

ds2.svPlots.Select  (0); 

if  (  TGraphDlg2  (this,  iddGraph2,  ds2).Execute  0  =  IDOK  ) 


{ 


int  Sel  =  ds2.svPlots.GetSelIndexO  +  1; 
if  (  Sel  >  0  )  PlotsList  ->  Del  (  Sel ); 

} 

}; 

//. - 

void  TGraphWin::DlgSettings  0 

{ 

TGraphDlgStructl  dsl; 

dsl  .svDecor  =  Decorated; 
dsl.svScale  =  Scaled; 
dsl.svisotr  =  Isotropic; 

if  ( TGraphDlgl  (this,  iddGraphl,  dsl).Execute  {)  ==  IDOK  ) 

{ 

Decorated  =  dsl. svDecor; 

Scaled  =  dsl.svScale; 

Isotropic  =  dsl.svisotr; 

TRect  clnt  =  GetClientRect  (); 
int  NewXmax  =  clnt.right  -  (pwLeft  +  pwRight); 
int  NewYmax  =  clnt.bottom  -  (pwTop  +  pwBottom); 
if  (Scaled)  ScaleTo  (NewXmax,  NewYmax); 

Invalidate  (TRUE); 

} 

}; 

H - 

void  TGraphWin::ScaleTo  ( int  Xs,  int  Ys ) 

{ 

if  (Xs  >  0)  pwLengthX  =  Xs; 
if  (Ys  >  0)  pwLengthY  =  Ys; 

if  (PlotsList)  PlotsList  ->  ScaleTo  ( pwLengthX,  pwLengthY  ); 

}; 

H- - 

void  TGraphWin  EvLButtonDown  (  UINT,  TPoint&  ) 

{ 

Paused  =  !  Paused; 

}; 

//. - 

void  TGraphWin  ::  EvRButtonDown  (  UINT,  TPoint&  ) 

{ 

Scaled  = !  Scaled; 

}; 

H. - 

void  TGraphWin:  :TimerTick  () 

{ 

//HDCdc; 
if  (IPaused) 

{  //dc  =  GetDC(HWindow); 

if  (PlotsList)  PlotsList  ->  Draw  (  TClientDC  (HWindow)  ); 
//  ReleaseDC  (HWindow,  dc); 

} 

}; 

H- - 

void  TGraphWin:  :Animate  () 

{ 


HDC  dc; 
if  (llconized) 

{  //  dc  =  GetDC  (HWindow); 

if  (PlotsList)  PlotsList  ->  Redraw  (TClientDC  (HWindow)); 

//  ReleaseDC  (HWindow,  dc); 

} 

}; 

H. - 

void  TGraphWin;:Paint  (  TDC&  dc,  BOOL  erase,  TRect&  rect ) 

{ 

TBaseGraphWin::Paint  (dc,  erase,  rect); 

dc.SetBkMode  (TRANSPARENT); 
dc.SetBkColor  (RGB(0,0,0)); 

dc.SetTextAlign  (TA_CENTER  |  TA_BASELINE  |  TA_NOUPDATECP  ); 
//  dc.SetTextColor  (  TextClr  ); 

if  (llconized) 

{ 

if  (PlotsList)  PlotsList  ->  Draw  (  dc,  0  ); 

} 

}; 


/***>i.>K4<***>K**>i»K*>K  TLinesGraphWin - */ 

DEFINE_RESPONSE_TABLEl  (TLinesGraphWin,  TGraphWin) 
EV_WM_SIZE, 

EV_WM_LBUTTONDOWN, 

END_RESPONSE_TABLE; 


TLinesGraphWin  ::  TLinesGraphWin  (T Window*  parent,  char*  title, 
axis  *  hrz,  axis  *  vrt,  TModule*  inst ) 

:  TGraphWin  (parent,  title,  inst) 

{ 

TextClr  =  RGB  ( 255,  255,  255  ); 

NameClr  =  RGB  (  127,  127,  0  ); 

MeshClr  =  RGB  (  127,  127,  127  ); 

PlotClr  =  RGB  (  255, 255,  127  ); 

TextPen  =  new  TPen  (TextClr); 

MeshPen  =  new  TPen  (MeshClr,  l,PS_SOLID); 
PlotPen  =  new  TPen  (PlotClr,  1 ,  PS  SOLID); 
if  (Ihrz)  MessageBox  ("Horiz  Axis  NULL  pointer","Error"); 
if  (Ivrt)  MessageBox  ("Vert  Axis  NULL  pointer'V'Error"); 
if  ((hrz)&&(vrt)) 

{ 

rwOrgX  =  hrz->org;  rwOrgY  =  vrt->org; 

rwEndX  =  hrz->end;  rwEndY  =  vrt->end; 

strcpy  (cwXname,  hrz->name);  strcpy  (cwYname,  vrt->name); 
strcpy  (cwXunits,  hrz->units);  strcpy  (cwYunits,  vrt->units); 
pwNx  =  ((hrz->N  >  0)&&(hrz->N  <  51))?  hrz->N  :  -1; 
pwNy  =  ((vrt->N  >  0)&&(vrt->N  <  51))?  vrt->N  :  -1; 

} 

else 


rwOrgX=  0.0;  rwOrgY=  0.0; 

rwEndX  =  10.0;  rwEndY  =  10.0; 

strcpy  (cwXname,  "tflii  X");  strcpy  (cwYname,  "Ifiii  Y"); 
strcpy  (cwXunits,"cm");  strcpy  (cwYunits,"m"); 
pwNx  =  -l;  pwNy  =  -l; 

} 

rwSizeX  =  rwEndX  -  rwOrgX;  rwSizeY  =  rwEndY  -  rwOrgY ; 
if  (rwSizeX  <=  0.0)  rwSizeX  =  1 .0;  //d 
if  (rwSizeY  <=  0.0)  rwSizeY  =  1 .0;  //dd 
pwLeft  =  8*7;  pwRight  =  8*9; 

pwTop  =  16*2;  pwBottom  =  16*3; 

pwLengthX  =  Attr.W  -  (pwLeft  +  pwRight);  //  work  area  width 

pwLengthY  =  Attr.H  -  (pwTop  +  pwBottom);  //  work  area  height 

rwScaleX  =  pwLengthX/rwSizeX;  rwScaleY  =  pwLengthY/rwSizeY ; 
rwStepX  =  1 .0/rwScaleX;  rwStepY  =  1 .0/rwScaleY ; 

rwHx  =  rwSizeX  /  pwNx;  rwHy  =  rwSizeY  /  pwNy; 
strcpy  (cwXfint,  "%.2f ');  strcpy  (cwYfint,  "%.2f '); 

strcpy  (cwName,  "  Lines  Plot "); 

StaticControl  =  new  TStatic  (this,  100,  cwName,  10, 10,  10, 10,  0); 

}; 

n - 

TLinesGraphWin ::  ~TLinesGraphWin  () 

{ 

delete  StaticControl; 

//  if  (PlotsList)  delete  PlotsList; 

}; 

//. - 

void  TLinesGraphWin:  :EvSize(  UfNT  sizeType,  TSize&  size ) 

{ 

TRect  clnt  =  GetClientRect  (); 

TGraphWin::EvSize  (sizeType,  size); 

Invalidate  (TRUE); 
if  ((StaticControl)&&(!  Iconized)) 

StaticControl  ->  Move  Window  ( 0, 0,  clnt. right,  16,  TRUE  ); 

}; 

//- - 

void  TLinesGraphWin::ScaleTo  ( int  Xs,  int  Ys  ) 

{ 

TGraphWin  ::  ScaleTo  (  Xs,  Ys  ); 

rwScaleX  =  pwLengthX/rwSizeX;  rwScaleY  =  pwLengthY/rwSizeY ; 
rwStepX  =  1.0/rwScaleX;  rwStepY  =  1.0/rwScaleY; 

}; 

n - 

void  TLinesGraphWin  ::  EvLButtonDown  (  UfNT,  TPoint&  ) 

{ 

delete  StaticControl; 
strcpy  (txt, "  iieiaSo  !"); 

StaticControl  =  new  TStatic(this,  100,  txt,  10, 10, 10, 10,0); 

Paused  = !  Paused; 

}; 

n - 

void  TLinesGraphWin:  :TimerTick  () 

{ 

if  ([Paused)  TGraphWin  ::  TimerTick  (); 


}; 

n- - 

void  TLinesGraphWin;:  Animate  () 

{ 

if  (!  Paused)  TGraphWin  ::  Animate  (); 

}; 

H - 

void  TLinesGraphWin:  :DrawBounds  (  TDC&  dc  ) 

{ 

dc.MoveTo  ( pwLeft,  pwTop  ); 
dc.SelectObject  (*TextPen); 

dc.LineTo  ( pwLeft+pwLengthX,  pwTop  ); 
dc.LineTo  ( pwLeft+pwLengthX,  pwTop+pwLengthY  ); 
dc.LineTo  (  pwLeft,  pwTop+pwLengthY  ); 
dc.LineTo  (  pwLeft,  pwTop  ); 
dc.RestorePen  Q\ 

}; 

//- - 

void  TLinesGraphWin:  :Draw Axis  ( TDC&  dc  ) 

{ 

chartxt  [20]; 

dc.SetTextAlign  (TA_CENTER  |  TA_TOP  ); 

/*  H(m)  *!  sprintf  (txt,"%s  (%s)",  cwXname,  cwXunits); 

dc.TextOut  (pwLeft+pwLengthX/2,  pwTop+pwLengthY+22,  txt,  strlen(txt)); 

/*  -5.0  */  sprintf  (txt,  cwXfmt,  rwOrgX); 

dc.TextOut  (pwLeft+1,  pwTop+pwLengthY+4,  txt,  strlen(txt)); 

/*  10.0  */  sprintf  (txt,  cwXftnt,  rwEndX); 

dc.TextOut  (pwLeft+pwLengthX-1,  pwTop+pwLengthY+4,  txt,  strlen(txt)); 

/*  0  *!  if  (rwOrgX*rwEndX  <  0.0) 
dc.TextOut  (Icx(O.O),  pwTop+pwLengthY+4,  "0.0",  3); 

dc.SetTextAlign  (TA_LEFT  |  TA_BASELINE  ); 

/*  V  */  sprintf  (txt,"%s",  cwYname); 

dc.TextOut  (pwLeft+pwLengthX+12,  pwTop+pwLengthY/2,  txt,  strlen(txt)); 

/*  (m)  */  sprintf  (txt,"(%s)",  cwYunits); 
dc.TextOut  (pwLeft+pwLengthX+6,  pwTop+pwLengthY/2+16,  txt,  strlen(txt)); 
dc.SetTextAlign  (TA_RIGHT  |  TA_BASELINE  ); 

/*  -1  */  sprintf  (txt,  cwYfint,  rwOrgY); 

dc.TextOut  (pwLeft-3,  pwTop+pwLengthY,  txt,  strlen(txt)); 

I*  1  */  sprintf  (txt,  cwYfint,  rwEndY); 

dc.TextOut  (pwLeft-3,  pwTop,  txt,  strlen(txt)); 

/*  Q  */  jf  (rwOrgY*rwEndY  <  0.0) 
dc.TextOut  (pwLeft-3,  Icy(O.O),  "0.0",  3); 

dc.SetTextAlign  (TA_CENTER  |  TA_BASELINE  |  TA_NOUPDATECP  ); 

}; 

n - 

void  TLinesGraphWin:  :DrawMesh  (  TDC&  dc  ) 

{ 

int  i; 

dc.SelectObject  (*MeshPen); 
for  ( i=l;  1  <  pwNy;  i++) 

{  dc.MoveTo  (  pwLeft,  Icy  (rwOrgY  +  i*rwHy)  ); 

dc.LineTo  (  pwLeft+pwLengthX,  Icy  (rwOrgY  +  i*rwHy)  ); 

} 

for  ( i=l ;  i  <  pwNx;  i++) 


{  dc.MoveTo  ( lex  (rwOrgX  +  i*nvHx),  pwTop  ); 

dc.LineTo  ( lex  (rwOrgX  +  i*rwHx),  pwTop+pwLengthY ); 

} 

de.RestorePen  (); 

}; 

//- - 

void  TLinesGraphWin:;DrawComments  (  TDC&  de  ) 

{ 

ehartxt[]  =  "lD"; 
double  d,  w,  a,  h; 
num  X,  y; 

//  TReet  ret  (0,  12,  pwLeft+pwRight+pwLengthX,  28); 

//  de.SetXextAlign  (TACENTER); 

//  de.SetTextColor  (NameClr); 

//  streat  (txt,  ewName); 

//  de.ExtTextOut  (1,1,  ETO_OPAQUE,  &ret,  txt,  strlen(txt)); 

h  =  rwSizeX  /  pwLengthX; 
a  =  rwSizeY  *  0.25; 
w  =  6.28  *  8  /rwSizeX; 

de.MoveTo  (  pwLeft,  ley  (0.0)  ); 
de.SeleetObjeet  (*PlotPen); 
for  ( int  i=l;  i  <  pwLengthX;  i++) 

{  a  ♦=  0.9; 

X  =  num  (rwOrgX  +  i  *  h); 
y  =  num  (a  *  sin  (w  *  x)); 
de.LineXo  ( lex  ( x ),  ley  ( y ) ); 

} 

de.RestorePen  (); 

}; 

//. - 

void  XLinesGraphWin:;Paint  ( XDC&  de,  BOOL  erase,  XReet&  reet ) 

{ 

XGraphWin::Paint  (de,  erase,  reet); 

de.SetBkMode  (XRANSPARENX); 
de.SetBkColor  (RGB(0,0,0)); 

de.SetXextAlign  (XA_CENXER  |  XA_BASELINE  |  XAJSIOUPDAXECP  ); 
de.SetXextColor  ( XextClr  ); 
if  (lleonized) 

{ 

DrawBounds  (  de ); 

DrawAxis  ( de  ); 

DrawMesh  ( de  ); 

if  (Isotropie)  DrawComments  (  de  ); 

// . 

if  (PlotsList)  PlotsList  ->  Draw  (de); 

} 

}; 

If  if  iinlii)iil,il,ii:ti:ti***************************************  ******************** 

/♦**♦*♦♦♦♦*♦♦*♦**  TRegionGraphWin - */ 

//. - 

XRegionGraphWin  ::  XRegionGraphWin  (XWindow*  parent,  ehar*  title, 

XGeomAxis  *  hrz,  XGeomAxis  *  vrt. 


TModule*  inst ) 

:  TLinesGraphWin  (parent,  title,  hrz,  vrt,  inst) 

{ 

BndOpenClr  =RGB(  0,  0,255); 

BndMetalClr  =  RGB  ( 255,  0,  0  ); 

BndSymClr  =  RGB  (  127, 255,  0); 

BndPeriodClr  =  RGB  (  0, 127,  127 ); 

BndOpenPen  =  new  TPen  (BndOpenClr,  1,PS_DASH); 

BndMetalPen  =  new  TPen  (BndMetalClr,  2,  PS  SOLID); 

BndSymPen  =  new  TPen  (BndSymClr,  1,  PS  DASHDOT); 

BndPeriodPen  =  new  TPen  (BndPeriodClr,  1,  PS  SOLID); 
if  ((hrz)  &&  (vrt)) 

{ 

pwMeshX  =  (hrz->N);  pwMeshY  =  (vrt->N); 

pwLeftBnd  =  TBoundaryType(hrz->boundl);  pwRightBnd  =  TBoundaryType  (hrz->bound2); 
pwBottomBnd  =  TBoundaryType(vrt->boundl);  pwTopBnd  =  TBoundaryType  (vrt->bound2); 
} 

else 

{ 

pwMeshX  =  20;  pwMeshY  =  10; 

pwLeflBnd  =  1;  pwRightBnd  =  3; 

pwBottomBnd  =  2;  pwTopBnd  =  4; 

} 

pwNx  =  ((pwMeshX  >  0)&&(pwMeshX  <151))?  pwMeshX  :  10; 
pwNy  =  ((pwMeshY  >  0)&&(pwMeshY  <  151))?  pwMeshY  :  10; 
rwHx  =  rwSizeX  /  pwNx;  rwHy  =  rwSizeY  /  pwNy; 
strcpy  (cwName,  "Two  Axis  and  Homogeneous  Mesh"); 
wsprintf  (txt,"  Regular  Mesh  =  %d  x  %d",  pwMeshX,  pwMeshY); 

StaticControl  =  new  TStatic(this,  100,  txt,  10, 10, 10, 10,0); 

}; 

//. - 

TRegionGraphWin  ::  TRegionGraphWin  (T Window*  parent,  char*  title, 

TRectangleRgn  *  rgn,  TModule*  inst ) 

.  :  TLinesGraphWin  (parent,  title,  rgn->X10,  rgn->X2(),  inst ) 

{ 

TGeomAxis  *  hrz  =  rgn  ->  Xl(); 

TGeomAxis  *  vrt  =  rgn  ->  X2(); 

BndOpenClr  =RGB(  0,  0,255); 

BndMetalClr  =  RGB  (  255,  0,  0  ); 

BndSymClr  =  RGB  (  127,  255,  0); 

BndPeriodClr  =  RGB  (  0,  127,  127  ); 

BndOpenPen  =  new  TPen  (BndOpenClr,  1,  PS  DASH); 

BndMetalPen  =  new  TPen  (BndMetalClr,  2,  PS  SOLID); 

BndSymPen  =  new  TPen  (BndSymClr,  1,  PS  DASHDOT); 

BndPeriodPen  =  new  TPen  (BndPeriodClr,  1,  PS  SOLID); 
if  ((hrz)  &&  (vrt)) 

{ 

pwMeshX  =  hrz->N;  pwMeshY  =  vrt->N; 

pwLeftBnd  =  TBoundaryType(hrz->boundl);  pwRightBnd  =  TBoundaryType  (hrz->bound2); 
pwBottomBnd  =  TBoundaryType(vrt->boundl);  pwTopBnd  =  TBoundaryType  (vrt->bound2); 
} 

else 

{ 

pwMeshX  =  20;  pwMeshY  =  10; 


pwLeftBnd  =  1;  pwRightBnd=  3; 
pwBottomBnd=  2;  pwTopBnd  =  4; 

} 

pwNx  =  ((pwMeshX  >  0)&&(pwMeshX  <151))?  pwMeshX :  10; 
pwNy  =  ((pwMeshY  >  0)&&(pwMeshY  <151))?  pwMeshY  :  10; 
rwHx  =  rwSizeX  /  pwNx;  rwHy  =  rwSizeY  /  pwNy; 
strcpy  (cwName,  "Rectangle  Region  and  Homogeneous  Mesh"); 
wsprintf  (txt,"  Rectangle  Mesh  =  %d  x  %d",  pwMeshX,  pwMeshY); 

StaticControl  =  new  TStatic(this,  100,  txt,  10, 10, 10, 10,0); 

}; 

II. - 

long  TRegionGraphWin::BndColor  ( TBoundaryType  ind  ) 

{  switch  (ind) 

{  case  ConductingBnd:  return  (BndMetalClr); 
case  OpenBnd:  return  (BndOpenClr); 

case  AxisymmetricBnd:  return  (BndSymClr); 
case  PeriodicBnd:  return  (BndPeriodClr); 

default:  return  (TextClr); 

} 

}; 

//. - 

TPen*  TRegionGraphWin::Pen  ( TBoundaryType  ind  ) 

{  switch  (ind) 

{  case  ConductingBnd:  return  (BndMetalPen); 
case  OpenBnd:  return  (BndOpenPen); 

case  AxisymmetricBnd:  return  (BndSymPen); 
case  PeriodicBnd:  return  (BndPeriodPen); 

default:  return  (TextPen); 

} 

}; 

n - 

void  TRegionGraphWin::ExamplePaint  (  TDC&  dc  ) 

{ 

TRect  ret  =  GetClientRect(); 

rct.lnflate(-2,  0); 
if  (Ilconized) 

dc.DrawText(txt,  strlen(txt),  ret,  DT  WORDBREAK); 
dc.MoveTo  (  10, 30 ); 

dc.SelectObject  (*BndSymPen);  dc.LineTo  (pwLengthX-10,  30);//  dc.RestorePen  (); 
dc.SelectObject  (*BndOpenPen);  dc.LineTo  ( pwLengthX-10,  pwLengthY-10 );  //  dc.RestorePen  (); 
dc.SelectObject  (*BndMetalPen);  dc.LineTo  (  10,  pwLengthY-10  ); //  dc.RestorePen  0; 

dc.SelectObject  (*BndPeriodPen);  dc.LineTo  (  10,  30);//  dc.RestorePen  (); 

dc.RestorePen  (); 

}; 

//. - 

void  TRegionGraphWin::DrawBounds  (  TDC&  dc  ) 

{ 

dc.MoveTo  ( pwLeft,  pwTop  ); 
dc.SelectObject  (*Pen  (pwTopBnd)); 

dc.LineTo  (  pwLeft+pwLengthX,  pwTop  );  dc.RestorePen  (); 
dc.SelectObject  (*Pen  (pwRightBnd)); 

dc.LineTo  (  pwLeft+pwLengthX,  pwTop+pwLengthY  );  dc.RestorePen  (); 
dc.SelectObject  (*Pen  (pwBottomBnd)); 
dc.LmeTo  ( pwLeft,  pwTop+pwLengthY ); 


dc.RestorePen  (); 


dc.SelectObject  (*Pen  (pwLeftBnd)); 

dc.LineTo  ( pwLeft,  pwTop );  dc.RestorePen  0; 

}; 

n - 

void  TRegionGraphWin;:DrawAxis  ( TDC&  dc  ) 

{ 

char  txt  [20]; 

dc.SetTextAlign  (TA_CENTER  |  TA_TOP  ); 

/*  H(m)  */  sprintf  (txt,"%s  (%s)",  cwXname,  cwXunits); 

dc.TextOut  (pwLeft+pwLengthX/2,  pwTop+pwLengthY+22,  txt,  strlen(txt)); 

/*  -5.0  */  sprintf  (txt,  cwXfint,  rwOrgX); 

dc.TextOut  (pwLeft+1,  pwTop+pwLengthY+10,  txt,  strlen(txt)); 

/*  10.0  */  sprintf  (txt,  cwXfmt,  rwEndX); 

dc.TextOut  (pwLeft+pwLengthX-1,  pwTop+pwLengthY+10,  txt,  strlen(txt)); 

/*  0  */  if  (rwOrgX*rwEndX  <  0.0) 
dc.TextOut  (Icx(O.O),  pwTop+pwLengthY+10,  "0.0",  3); 

dc.SetTextAlign  (TA_LEFT  |  TA_BASELINE  ); 

/*  V  */  sprintf  (txt,"%s",  cwYname); 

dc.TextOut  (pwLeft+pwLengthX+24,  pwTop+pwLengthY/2,  txt,  strlen(txt)); 

/*  (m)  */  sprintf  (txt,"(%s)",  cwYunits); 
dc.TextOut  (pwLeft+pwLengthX+18,  pwTop+pwLengthY/2+16,  txt,  strlen(txt)); 
dc.SetTextAlign  (TA_RIGHT  |  TA_BASELINE  ); 

/*  -1  */  sprintf  (txt,  cwYfmt,  rwOrgY); 

dc.TextOut  (pwLeft-3,  pwTop+pwLengthY-4,  txt,  strlen(txt)); 

/*  1  */  sprintf  (txt,  cwYfmt,  rwEndY); 

dc.TextOut  (pwLeft-3,  pwTop+2,  txt,  strlen(txt)); 

/*  0  */  if  (rwOrgY*rwEndY  <  0.0) 
dc.TextOut  (pwLeft-3,  Icy(O.O),  "0.0",  3); 

dc.SetTextAlign  (TA_CENTER  j  TA_BASELINE  |  TA_NOUPDATECP  ); 

}; 

//. - 

void  TRegionGraphWin::DrawMesh  (  TDC&  dc  ) 

{ 

int  i; 

dc.SelectObject  (*MeshPen); 
for  ( i=l;  i  < pwNy;  i++) 

{  dc.MoveTo  ( pwLeft,  Icy  (rwOrgY  +  i*rwHy)  ); 

dc.LineTo  (  pwLeft+pwLengthX,  Icy  (rwOrgY  +  i*rwHy)  ); 

} 

for  ( i=l ;  i  <  pwNx;  i++) 

{  dc.MoveTo  ( lex  (rwOrgX  +  i*rwHx),  pwTop  ); 

dc.LineTo  ( lex  (rwOrgX  +  i^rwHx),  pwTop+pwLengthY  ); 

} 

dc.RestorePen  (); 

}; 

n- - 

void  TRegionGraphWin::DrawComments  (  TDC&  dc  ) 

{ 

char  txt  [20]; 

TRect  ret  (0,  0,  pwLeft+pwRight+pwLengthX,  pwTop/2); 

strepy  (txt,  string  (*GetModule(),  ids_boundary00+pwTopBnd).c_str  () ); 
dc.SetTextColor  (  BndColor  (pwTopBnd)  );  //  Top 

dc.TextOut  (pwLeft+(pwLengthX/2),  pwTop,  txt,  strlen(txt)); 


strcpy  (txt,  string  (*GetModuleO,  ids_boundaryOO+pwBottomBnd).c_str  ()  ); 
dc.SetTextColor  (  BndColor  (pwBottomBnd)  );  //  Bottom 

dc.TextOut  (pwLeft+pwLengthX/2,  pwTop+pwLengthY+10,  txt,  strlen(txt)); 

dc.SetXextAlign  (TA_LEFT  |  TA_BASELINE  ); 
strcpy  (txt,  string  (*GetModule(),  ids_boundaryOO+pwLeftBnd).c_str  ()  ); 
dc.SetTextColor  ( BndColor  (pwLeftBnd) );  //  Left 

dc.TextOut  (2,  pwTop+pwLengthY/2-16,  txt,  strlen(txt)); 
strcpy  (txt,  string  (*GetModule(),  ids_boundaryOO+pwRightBnd).c_str  ()  ); 
dc.SetTextColor  ( BndColor  (pwRightBnd) );  //  Right 

dc.TextOut  (pwLeft+pwLengthX-12,  pwTop+pwLengthY/2-16,  txt,  strlen(txt)); 

//  dc.SetTextAlign  (TA_CENTER); 

//  dc.SetTextColor  (NameClr); 

//dc.ExtTextOut  (1,1,  ETO  OPAQUE,  &rct,  cwName,  strlen(cwName)); 

}; 

H- - 

void  TRegionGraphWin::Paint  ( TDC&  dc,  BOOL  erase,  TRect&  rect ) 

{ 

TLinesGraphWin::Paint  (dc,  erase,  rect); 

dc.SetBkMode  (TRANSPARENT); 
dc.SetBkColor  (RGB(0,0,0)); 

dc.SetTextAlign  (TA_CENTER  |  TA_BASELINE  j  TA_NOUPDATECP ); 
dc.SetTextColor  (  TextClr  ); 
if  (llconized) 

{ 

//  DrawBounds  ( dc ); 

//  DrawAxis  ( dc ); 

//  DrawMesh  ( dc ); 

if  (Decorated)  DrawComments  ( dc ); 

} 

}; 

/*  PS_PLOTS.H  */ 

//  Plot  Element  objects  header 

// 

#ifhdef_PS_PLOTS_H 
#define  _PS_PLOTS_H 

#include  <owl\point.h> 

#include  "ps_phval.h" 

#include  "psregn.h" 

#include  "ps_idres.rh" 

class  _OWLCLASS  TDC; 
class  OWLCLASS  TPen; 
class  OWLCLASS  TStatic; 
struct  TFrameStruct; 
class  OWLCLASS  TWindow; 

/* - TBasePlot - */ 


class  TBasePlot 

{ 

protected: 


int  pwXl,  pwYl;  // Viewport  Org  coord  rel  Window 
int  pwX2,  pwY2;  //  Viewport  End  coord  rel  Window 
int  pwLengthX,  pwLengthY;  // Viewport  Size 
num  rwScaleX,  rwScaleY; 

num  rwSizeX,  rwSizeY; 

num  rwStepX,  rwStepY; 

num  rwOrgX,  rwOrgY;  //  Phys  limits  in 

num  rwEndX,  rwEndY;  //  physical  units 

public: 

TBasePlot  ( TRect&  x,  TBasePlot*  p  =  0 ); 

TBasePlot  ( ); 
virtual  -TBasePlot  (  ); 
int  id; 

char  ClassName  [80]; 
protected: 

int  lex  (  num  x  )  {  return  (int)(rwScaleX*(x  -  rwOrgX)+pwXl); }; 
int  Icy  (  num  y  )  {  return  (int)(rwScaleY*(rwEndY  -  y)+pwYl);  }; 
num  Xci  ( int  i )  {  return  (rwOrgX  +  rwStepX*(i-pwXl)); }; 
num  Yci  ( int  i )  {  return  (rwEndY  -  rwStepY*(i-pwYl));  }; 
public: 

virtual  void  ScaleTo  ( int  Xs,  int  Ys  ); 
virtual  void  Draw  ( TDC  &  dc )  {  }; 

virtual  void  Erase  (  TDC  &  dc  )  {  }; 

void  Adjust  ( int  Adj  =  0  ); 
virtual  void  IdClassMessage  ( ); 
virtual  void  Privateinfo  (char*  info)  { }; 

BOOL  Static; 

TBasePlot  *  next; 
long  Color; 

TPen  *  Pen; 

DECLARE_CASTABLE; 

}; 

/*—  TTextPlot - */ 

class  TTextPlot :  public  TBasePlot 

{ 

char  Text  [LNGH_COMMENT]; 

TStatic  *  sctl; 
int  Htxt,  Ltxt; 
public: 

TTextPlot  (  char*  text,  TRect&  x,  TBasePlot*  p  =  0  ); 

TTextPlot  ( TWindow*  parent,  TBasePlot*  p  =  0  ); 
virtual  -TTextPlot  ( )  { if  (sctl)  delete  sctl;  TBasePlot:  :-TBasePlot  0; }; 

virtual  void  Draw  (  TDC  &  dc  ); 
virtual  void  Erase  (  TDC  &  dc ); 
virtual  void  Privateinfo  (char*  info); 

DECLARE_CASTABLE; 

}; 

*/ 


/* —  TAxisPlot - 

class  TAxisPlot :  public  TBasePlot 
{ 


public: 

axis  *  Axe; 
int  Orient; 
protected: 

int  pwN;  //  Axe  Draw  digits 

char  cwFmt  [LNGH  FMT];  //  and  its  format 
num  rwSize,  rwH; 
char  cwAname  [LNGH  AXIS]; 
char  cwUnits  [LNGH_UNITS]; 
public: 

TAxisPlot  (  axis*  e,  TRect&  x,  int  ori  =  0,  TBasePlot*  p  =  0  ); 
TAxisPlot  ( TWindow*  parent,  TBasePlot*  p  =  0  ); 
virtual  void  Draw  (  TDC  &  dc  ); 
virtual  void  Erase  (  TDC  &  dc  ); 
virtual  void  ScaleTo  ( int  Xs,  int  Ys  ); 
virtual  void  Privateinfo  (char*  info); 

DECLARE_CASTABLE; 

}; 


/* —  TBoundsPlot - */ 

class  TBoundsPlot :  public  TAxisPlot 

{ 

public: 

TBoundaryType  *  Bnd; 
public: 

TBoundsPlot  ( axis*  e,  TRect&  x,  int  ori  =  0,  TBasePlot*  p  =  0 ); 
virtual  void  Draw  ( TDC  &  dc ); 
virtual  void  Erase  ( TDC  &  dc ); 
virtual  void  Privateinfo  (char*  info); 

DECLARE_CASTABLE; 

}; 


/* —  TLinesPlot - */ 

class  TLinesPlot :  public  TBasePlot 

{ 

protected: 

TAbstrPhysVal  *  PhVal; 
int  pwN; 

public: 

TLinesPlot  (  TAbstrPhysVal*  e,  TRect&  x,  TBasePlot*  p  =  0 ); 
TLinesPlot  ( TWindow*  parent,  TBasePlot*  p  =  0  ); 
virtual  void  Draw  (  TDC  &  dc  ); 
virtual  void  Erase  (  TDC  &  dc  ); 
virtual  void  Privateinfo  (char*  info); 

DECLARE_CASTABLE; 

}; 


/* —  TPointsPlot - */ 

class  TPointsPlot :  public  TLinesPlot 

{ 

public: 


TPointsPlot  ( TAbstrPhysVal*  e,  TRect&  x,  TBasePlot*  p  =  0 ) 
:  TLinesPlot  ( e,  x,  p )  {  } ; 
virtual  void  Draw  ( TDC  &  dc  ); 
virtual  void  Erase  (  TDC  &  dc  ); 

DECLARE_CASTABLE; 

}; 


/* —  TFuncPlot - *! 

class  TFuncPlot :  public  TLinesPlot 

{ 

array  A; 
public: 

TFuncPlot  (  TFunctionVal*  e,  TRect&  x,  TBasePlot*  p  =  0  ); 
TFuncPlot  (  TWindow*  parent,  TBasePlot*  p  =  0  ); 
virtual  void  Draw  (  TDC  &  dc  ); 
virtual  void  Erase  ( TDC  &  dc ); 

DECLARE_CASTABLE; 

}; 


/* —  TArrayPlot - */ 

class  TArrayPlot :  public  TLinesPlot 

{ 

array  A; 
public: 

TArrayPlot  ( TGridVal*  e,  TRect&  x,  TBasePlot*  p  =  0 ); 
TArrayPlot  ( TWindow*  parent,  TBasePlot*  p  =  0  ); 
virtual  void  Draw  ( TDC  &  dc ); 
virtual  void  Erase  ( TDC  &  dc  ); 

DECLARE_CASTABLE; 

}; 


/* —  TFramePlot - */ 

class  TFramePlot :  public  TBasePlot 

{ 

protected: 

int  pwNx,  pwNy;  //  Axis  Draw  digits 

char  cwXfint  [LNGH  FMT];  //  and  its  format 

char  cwYfint  [LNGH_FMT];  //  "" 

int  pwMeshX,  pwMeshY;  // Mesh  Dimension 
num  rwHx,  rwHy;  // 

char  cwName  [LNGH  TITLE]; 
char  cwXname  [LNGH_AXIS]; 
char  cwYname  [LNGH_AXIS]; 
char  cwXunits  [LNGH  UNITS]; 
char  cwYunlts  [LNGH_UNITS]; 
public: 

TFramePlot  ( TFrameStruct*  e,  TRect&  x,  TBasePlot*  p  =  0  ); 

TFramePlot  ( TWindow*  parent,  TBasePlot*  p  =  0  ); 
virtual  -TFramePlot  (); 


virtual  void  Draw  (  TDC  &  dc  ); 


virtual  void  Erase  (  TDC  &  dc  ); 
virtual  void  Privateinfo  (char*  info); 
protected: 

long  FramClr, 

AxisClr, 

MeshClr, 

TextClr; 

TPen  *  FramPen, 

*  AxisPen, 

*  MeshPen; 

DECLARE_CASTABLE; 

}; 


/* —  TRegionPlot - */ 

class  TRegionPlot :  public  TBasePlot 

{ 

public: 

TAbstrRegion  *  Rgn; 
protected: 

int  pwNx,  pwNy;  //  Axis  Draw  digits 
char  cwXfhit  [LNGH  FMT];  //  and  its  format 

char  cwYfmt  [LNGH_FMT];  //  "" 

num  rwHx,  rwHy;  // 
char  cwName  [LNGH_TITLE]; 
char  cwXname  [LNGH_AXIS]; 
char  cwYname  [LNGH_AXIS]; 
char  cwXunits  [LNGH_UNITS]; 
char  cwYunits  [LNGH_UNITS]; 
public: 

TRegionPlot  (  TAbstrRegion*  e,  TRect&  x,  TBasePlot*  p  =  0  ); 
TRegionPlot  (  TWindow*  parent,  TBasePlot*  p  =  0  ); 
virtual  -TRegionPlot  (); 

virtual  void  Draw  (  TDC  &  dc  ); 
virtual  void  Erase  (  TDC  &  dc ); 
virtual  void  Privateinfo  (char*  info); 
protected: 

TPen*  BndPen  (TBoundaryType  ind); 
long  BndColor  (TBoundaryType  ind); 
protected: 

long  BndOpenClr, 

BndMetalClr, 

BndSymClr, 

BndPeriodClr; 

TPen  *  BndOpenPen, 

*  BndMetalPen, 

*  BndSymPen, 

*  BndPeriodPen; 

private: 

int  pwMeshX,  pwMeshY;  // Mesh  Dimension 
TBoundaryType  pwLeftBnd,  pwRightBnd,  // 
pwTopBnd,  pwBottomBnd;  // 


DECLARE_CASTABLE; 

}; 


/*—  TMeshPlot - */ 

class  TMeshPlot :  public  TRegionPlot 

{ 

public: 

TAbstrMesh  *  Mesh; 

TMeshPlot  (  TAbstrMesh*  e,  TRect&  x,  TBasePlot*  p  =  0  ); 
TMeshPlot  (  TWindow*  parent,  TBasePlot*  p  =  0  ); 
virtual  void  Draw  (  TDC  &  dc  ); 
virtual  void  Erase  (  TDC  &  dc  ); 
virtual  void  Privateinfo  (char*  info); 

DECLARE_CASTABLE; 

}; 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

/* - TPlotsList - */ 

class  TPlotsList 

{ 

TBasePlot  *  First; 
public: 

TPlotsList ():  First (0)  {Ne  =  0;}; 

TPlotsList  (TBasePlot  *  frst); 

-TPlotsList  0; 

void  Ins  ( TBasePlot  *  Plot ); 
void  Del  ( TBasePlot  *  Plot ); 
void  Del  ( int  k ); 
void  ScaleTo  (  int  Xs,  int  Ys ); 
void  Draw  ( TDC  &  dc,  BOOL  NonStaticOnly  =  1  ); 
void  Redraw  ( TDC  &  dc,  BOOL  NonStaticOnly  =  1  ); 
void  Revision  (  BOOL  NonStaticOnly  =  0  ); 
int  Element  (  char*  item,  int  k  ); 
int  Ne; 
private: 

void  ForEach  ( void  (*Procedure)  (TBasePlot  *  )  ); 

}; 


iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

I  I  Structures  for  Transfer  Data  between  Dialog,  Plot  and  Base  classes 

//♦♦♦♦♦♦********************1(1****  ♦♦****♦**♦♦♦♦♦*♦♦♦♦  ♦♦♦♦♦♦♦***>(l*****  ♦*♦♦*11! 

Struct  TAxisStruct 

{ 

TAxisStruct  (); 

TAxisStruct  (axis&A); 

void  GetData  ( axis  &  A  ); 
char  svName  [LNGH  AXIS];  //  chr. 
charsvOrg  [LNGH_FLOAT];  //num. 

char  svEnd  [LNGH  FLOAT];  //  num. 

char  svN  [LNGH  INT];  //  int.  Axis  Draw  digits 

char  svM  [LNGH  fNT];  //  int.  Axis  Draw  mesh 

char  svFmt  [LNGH  FMT];  //  chr.  and  its  format 


char  svH 
char  svUni 
char  svXl 
char  svYl 
char  svX2 
char  svY2 

}; 

9|e  ]fe  :|c  ^  :|c :(( )|c  ^ :|c9|c  9(e  9(e  ^  ^  4!  ^  3fe  ^  ^  3f(:|c  4e  4e  )ic  ]|e  4e  9|e  i(e  9(e  jfc  >](  s|(  )|c  ]|e  ]|e  9|e  9|c :(( )|c  9(c  ^  ^  :jc :)( 9|c 


[LNGH  FLOAT]; 

//  num. 

s  [LNGH_UNITS]; 

//chr. 

[LNGH  INT]; 

//int.  Win 

[LNGH  INT]; 

//  int.  " 

[LNGH  INT]; 

//int.  " 

[LNGH  INT]; 

//  int.  " 

struct  TFrameStruct 

{ 

TFrameStruct  (); 

TFrameStruct  (  axis  &  Hrz,  axis  &  Vrt ); 
void  GetData  (  axis  &  Hrz,  axis  &  Vrt ); 
TAxisStruct  X; 

TAxisStruct  Y; 

char  svName  [LNGH_TITLE]; 

}; 


//. - n 

#endif  //  ifhdef  _PS_PLOTS_H 

U  itititititifitttit  pg  p^Q-pg  ^pp  «*«**<i<*i|<«** 

#if  defined  CSPRT_PLOTS_PCH) 

llllllllllllllllllllllllllllllllllllll 

#pragma  hdrfile  "d:\picsim\obj\_plots.csm" 

#include  <stdlib.h> 

#include  <stdio.h> 

#include  <math.h> 

#include  <typeinfo.h> 

#include  <owl\diaIog.h> 

#include  <owl\checkbox.h> 

#include  <owl\static.h> 

#include  <owl\combobox.h> 

#include  <owl\edit.h> 

#include  <owl\groupbox.h> 

#include  <owl\radiobut.h> 

#include  <owl\dc.h> 

#include  <owl\framewin.h> 

#include  <owl\applicat.h> 

#pragma  hdrstop 

#else 

lllllllllllllllllllllllllllllllllllll 

#pragma  hdrfile  "f:\picsim\obj\_allpch.csm" 

#define_ALLPCH 
#include  <_allpch.h> 

#pragma  hdrstop 

#endif 

lllllllllllllllllllllllllllllllllllll 

#include  "ps_idres.rh" 

//#mclude  "ps_menul.rh" 

#include  "ps  strOl.rh" 

#include  "ps  dlgOl.rh" 


#include  "ps_phval.h' 
#mclude  "ps  mesh.h' 


#include  "ps_plots.h" 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

Struct  TTextPlotStr 

{ 

TTextPlotStr  (); 

char  svText  [LNGH_COMMENT]; 
char  svX  [5],  svY  [5]; 

BOOLsvAxl,  svAxc,  svAx2; 

BOOLsvAyl,  svAyc,  svAy2; 
char  svR  [4],  svG  [4],  svB  [4]; 

}; 

TTextPlotStr ::  TTextPlotStr  0 

{ 

svText  [0]  =  0;  strcpy  (svX,  "5");  strcpy  (svY,  "5"); 
strcpy  (svR,  "255");  strcpy  (svG,  "255");  strcpy  (svB,  "255"); 
svAxl  =  svAx2  =  svAyc  =  svAy2  =  0;  svAxc  =  svAyl  =  1; 

}; 

n- - 

class  TTextPlotDlg :  public  TDialog 

{ 

public: 

TTextPlotDlg  (TWindow*  p,  TTextPlotStr  &  ts,  int  resid  =  iddPlotOl); 

}; 

TTextPlotDlg  ::  TTextPlotDlg  (TWindow*  p,  TTextPlotStr  &  ts,  int  resid) 
:  TDialog  (p,  resid) 

{ 

new  TEdit  (this,  idc_edit01,  LNGH_COMMENT); 
new  TEdit  (this,  idc_edit02,  5); 
new  TEdit  (this,  idc_edit03,  5); 

TGroupBox  *  ivGroupl  =  new  TGroupBox  (this,  idc_groupI); 

new  TRadioButton  (this,  idc  radiol,  ivGroupl); 
new  TRadioButton  (this,  idc_radio2,  ivGroupl); 
new  TRadioButton  (this,  idc_radio3,  ivGroupl); 

TGroupBox  *  ivGroup2  =  new  TGroupBox  (this,  idc_group2); 

new  TRadioButton  (this,  idc_radio4,  ivGroup2); 
new  TRadioButton  (this,  idc_radio5,  ivGroup2); 
new  TRadioButton  (this,  idc_radio6,  ivGroup2); 
new  TEdit  (this,  idc_edit04,  4); 
new  TEdit  (this,  idc_edit05,  4); 
new  TEdit  (this,  idc_edit06,  4); 

TransferBuffer  =  (void  far*)&ts; 

}; 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

IMPLEMENT  CASTABLEl  (  TBasePlot,  TWindow  ); 


IMPLEMENT_CASTABLE1  (  TTextPlot,  TBasePlot ); 
IMPLEMENT_CASTABLE1  (  TAxisPlot,  TBasePlot ); 
IMPLEMENT_CASTABLE1  (  TLinesPlot,  TBasePlot ); 
IMPLEMENT_CASTABLE1  ( TRegionPlot,  TBasePlot); 
IMPLEMENT_CASTABLE1  ( TFramePlot,  TBasePlot); 

IMPLEMENT_CASTABLE1  ( TBoundsPlot,  TAxisPlot); 
IMPLEMENT_CASTABLE1  ( TPointsPlot,  TLinesPlot); 
IMPLEMENT_CASTABLE1  (  TFuncPlot,  TLinesPlot ); 
IMPLEMENT_CASTABLE1  ( TArrayPlot,  TLinesPlot); 
IMPLEMENT_CASTABLE1  ( TMeshPlot,  TRegionPlot ); 

/♦♦♦♦*******!i!****  TBasePlot _ * / 

static  int  PlotsCount  =  0; 

II. - 

TBasePlot ::  TBasePlot  ( TRect&  x,  TBasePlot*  p  ) 

:  next  ( p  ),  Static  (  1  ) 

{  pwXl  =  x.left;  pwX2  =  x.right;  pwLengthX  =  pwX2  -  pwXl ; 
pwYl  =  x.top;  pwY2  =  x.bottom;  pwLengthY  =  pwY2  -  pwYl; 
Color  =  RGB  ( 255,  255, 255  ); 

Pen  =  new  TPen  (Color); 

rwScaleX  =  rwSizeX  =  rwStepX  =  rwOrgX  =  rwEndX  =  0.0; 
rwScaleY  =  rwSizeY  =  rwStepY  =  nvOrgY  =  rwEndY  =  0.0; 
id  =  -H-PlotsCount; 

strcpy  (ClassName, "Abstract  Base  Plot"); 

}; 

//. - 

TBasePlot ::  TBasePlot  ( ) 

{  next  =  0;  Static  =  1 ; 

pwXl  =  0;  pwX2  =  100;  pwLengthX  =  pwX2  -  pwXl; 
pwYl  =  0;  pwY2  =  100;  pwLengthY  =  pwY2  -  pwYl; 

Color  =  RGB  (  255,  255, 255  ); 

Pen  =  new  TPen  (Color); 

rwScaleX  =  rwSizeX  =  rwStepX  =  rwOrgX  =  rwEndX  =  0.0; 
rwScaleY  =  rwSizeY  =  rwStepY  =  rwOrgY  =  rwEndY  =  0.0; 
id  =  ++PlotsCount; 

strcpy  (ClassName, "Abstract  Base  Plot"); 

}; 

n- - 

TBasePlot  "-TBasePlot  ( )  {  delete  Pen;  }; 

//. - 

void  TBasePlot ::  ScaleTo  ( int  Xs,  int  Ys  ) 

{ 

if  (Xs  >  0)  {  pwLengthX  =  Xs;  pwX2  =  pwXl  +  pwLengthX; } 
if  (Ys  >  0)  {  pwLengthY  =  Ys;  pwY2  =  pwYl  +  pwLengthY; } 
rwScaleX  =  (rwSizeX  >  0.0)  ?  (pwLengthX/rwSizeX)  :  -1; 
rwStepX  =  1 .0/rwScaleX; 

rwScaleY  =  (rwSizeY  >  0.0)  ?  (pwLengthY/rwSizeY)  :  -1; 
rwStepY  =  1.0/rwScaleY; 

}; 

//. - 

void  TBasePlot Adjust  ( int  Adj  ) 

{ 


switch  ( Adj ) 


{  case  0: 

{  rwSizeX  =  rwEndX  -  rwOrgX;  rwSizeY  =  rwEndY  -  rwOrgY; 
pwLengthX  =  pwX2-pwXl;  if  (pwLengthX  <=  0)  {  pwLengthX=pwX2=100;  pwXl=0;  } 
pwLengthY  =  pwY2-pwYl;  if  (pwLengthY  <=  0)  {  pwLengthY=pwY2=100;  pwYl=0;  } 
if  (rwSizeX  <=  0.0)  {  rwSizeX=1.0;  rwOrgX=0;  rwEndX  =  rwOrgX+rwSizeX;  } 
if  (rwSizeY  <=  0.0)  {  rwSizeY=1.0;  rwOrgY=0;  rwEndY  =  nvOrgY+rwSizeY; } 
rwScaleX  =  pwLengthX/rwSizeX;  rwScaleY  =  pwLengthY/rwSizeY; 
rwStepX  =  1.0/rwScaleX;  rwStepY  =  1.0/rwScaleY; 
rwScaleX  =  (rwSizeX  >  0.0)  ?  (pwLengthX/rwSizeX)  :  -1; 
rwStepX=  1.0/rwScaleX; 

rwScaleY  =  (rwSizeY  >  0.0)  ?  (pwLengthY/rwSizeY)  :  -1; 
rwStepY  =  1.0/rwScaleY;  break; 

} 

default: 

{  rwSizeX  =  rwEndX  -  rwOrgX;  rwSizeY  =  rwEndY  -  rwOrgY; 
pwLengthX  =  pwX2-pwXl;  if  (pwLengthX  <=  0)  {  pwLengthX=pwX2=100;  pwXl=0; } 
pwLengthY  =  pwY2-pwYl;  if  (pwLengthY  <=  0)  {  pwLengthY=pwY2=100;  pwYl=0; } 
if  (rwSizeX  <=  0.0)  {  rwSizeX=1.0;  rwOrgX=0;  rwEndX  =  rwOrgX+rwSizeX; } 
if  (rwSizeY  <=  0.0)  {  rwSizeY=1.0;  rwOrgY=0;  rwEndY  =  rwOrgY+rwSizeY; } 
rwScaleX  =  pwLengthX/rwSizeX;  rwScaleY  =  pwLengthY/rwSizeY ; 
rwStepX  =  1.0/rwScaleX;  rwStepY  =  1.0/rwScaleY; 
rwScaleX  =  (rwSizeX  >  0.0)  ?  (pwLengthX/rwSizeX)  :  -1; 
rwStepX  =  1.0/rwScaleX; 

rwScaleY  =  (rwSizeY  >  0.0)  ?  (pwLengthY/rwSizeY) :  -1; 
rwStepY  =  1.0/rwScaleY; 

} 

} 

}; 

//. - 

void  TBasePlot ::  IdClassMessage  ( ) 

{ 

char  txt  [255], 
buf[80], 
captio[  20]; 

strcpy  (txt,  "  Client  work  area:\n"); 

sprintf (buf,"  XI  =  %d,  X2  =  %d.  Length  X  =  %d\n",  pwXl,  pwX2,  pwLengthX); 
strcat  (txt,  buf); 

sprintf  (buf,"  Y1  =  %d,  Y1  =  %d.  Length  Y  =  %d\n",  pwYl,  pwY2,  pwLengthY); 
strcat  (txt,  buf); 
strcat  (txt,"  Phys.  Area:  \n"); 

sprintf  (buf,"  xl  =  %.2f,  x2  =  %.2f.  Size  X  =  %.2f,  1/hx  =  %.2f,  hx  =  %.2f\n", 
rwOrgX,  rwEndX,  rwSizeX,  rwScaleX,  rwStepX); 
strcat  (txt,  buf); 

sprintf  (buf,"  yl  =  %.2f,  y2  =  %.2f.  Size  Y  =  %.2f,  1/hy  =  %.2f,  hy  =  %.2fui", 
rwOrgY,  rwEndY,  rwSizeY,  rwScaleY,  rwStepY); 
strcat  (txt,  buf); 

strcat  (txt,"  Private  info:  \n"); 

Privateinfo  (  buf  );  strcat  (txt,  buf); 

itoa  ( id,  buf,  10 );  strcpy  (captio,  buf);  strcat  (captio,  "  :  "); 
strcat  (captio,  ClassName); 

::MessageBox  (0,  txt,  captio,  MB  ICONINFORMATION  |  MB  OK); 

}; 


*/ 


TTextPlot 


II - 

TTextPlot ::  TTextPlot  ( char*  text,  TRect&  x,  TBasePlot*  p ) 

:  TBasePlot  ( x,  p ) 

{ 

strcpy  (Text,  text);  Htxt=16;  Ltxt  =  strlen  (Text); 
pwX2  =  pwXl  +  8*Ltxt;  pwLengthX  =  pwX2  - pwXl; 
pwY2  =  pwY  1  +  Htxt;  pwLengthY  =  pwY2  -  pwY  1 ; 
strcpy  ( ClassName,  typeid  (this).name()  ); 

} 

H - 

TTextPlot ::  TTextPlot  ( TWindow*  parent,  TBasePlot*  p  ) 

:  TBasePlot  ( ) 

{ 

strcpy  (Text, "  text  ");  Htxt  =16;  Ltxt  =  strlen  (Text); 

TTextPlotStr  tds; 

if  (  TTextPlotDlg  (parent,  tds).Execute  ()  ==  IDOK  ) 

{ 

strcpy  (Text,  tds.svText); 

Htxt  =  16;  Ltxt  =  strlen  (Text); 

pwXl  =  atoi  (tds.svX);  pwX2  =  pwXl  +  8*Ltxt;  pwLengthX  =  pwX2  -  pwXl; 
pwYl  =  atoi  (tds.svY);  pwY2  =  pwYl  +  Htxt;  pwLengthY  =  pwY2  -  pwYl ; 
Color  =  RGB  (atoi(tds.svR),  atoi(tds.svG),  atoi(tds.svB)); 
delete  Pen;  Pen  =  new  TPen  (Color); 

} 

strcpy  ( ClassName,  typeid  (this).name() ); 

} 

H. - 

void  TTextPlot ::  Draw  ( TDC  &  dc ) 

{ 

dc.SelectObject  (*Pen); 
dc.SetTextAllgn  (TA_CENTER  |  TA_TOP  ); 
dc.TextOut  (pwXl+pwLengthX/2,  pwYl,  Text,  Ltxt); 
dc.RestorePen  (); 

}; 

n - 

void  TTextPlot ::  Erase  (  TDC  &  dc  ) 

{ 

}; 

II. - 

void  TTextPlot ::  Privateinfo  (char*  info) 

{  charbuf[80]; 

sprintf  (buf,"  Text  =  %s,  H  =  %d,  L  =  %d\n".  Text,  Htxt,  Ltxt); 
strcpy  (info,  buf); 

}; 

y:fc:f(9|c:^:|c:(e9|c9|(^:te:|c9|c^^tN(  XAxlsPlOt  — — — — _ */ 

//. - 

TAxisPlot TAxisPlot  (  axis  *  e,  TRect&  x,  int  ori,  TBasePlot*  p  ) 

:  TBasePlot  ( x,  p  ),  Axe  ( e  ) 

{ 

Orient  =  (Axe  !=  NULL)  ?  ori ;  -1; 
switch  (  ori ) 

{ 

case  0  :  /*- —  horizontal  — */ 

rwOrgX  =  e->org;  rwOrgY  =0.0; 


rwEndX  =  e->end;  rwEndY  =  1.0; 

Color  =  RGB  (  255,  0,  0 );  break; 
case  1  :  I* —  vertical  — */ 

rwOrgX=  0.0;  rwOrgY  =e->org; 

rwEndX=  1.0;  rwEndY  =e->end; 

Color  =  RGB  (  0,  255,  0  );  break; 
case  2  :  /* —  arbitrary  — */ 

rwOrgX=  0.0;  rwOrgY  =e->org; 

rwEndX=  1.0;  rwEndY  =e->end; 

Color  =  RGB  (  0,  0,  255  );  break; 
default: 

rwOrgX=  0.0;  rwOrgY  =  0.0; 

rwEndX=  1.0;  rwEndY  =  1.0; 

Color  =  RGB  (  127,  127,  127  ); 

::MessageBox  (0,"Axis  NULL  pointer","Error",MB_OK); 

} 

pwXl  =x.left+2;  pwX2  =x.right-2; 
pwYl  =  x.bottom-2;  pwY2  =  x.bottom+2; 
rwSizeX  =  rwEndX  -  rwOrgX;  rwSizeY  =  rwEndY  -  rwOrgY ; 

if  (rwSizeX  <=  0.0)  rwSizeX  =  1.0; 
if  (rwSizeY  <=  0.0)  rwSizeY  =  1.0; 
rwScaleX  =  pwLengthX/rwSizeX;  rwScaleY  =  pwLengthY/rwSizeY ; 
rwStepX  =  1.0/rwScaleX;  rwStepY  =  1.0/rwScaleY; 

delete  Pen;  Pen  =  new  TPen  (Color); 
strcpy  (cwAname,  e->name);  strcpy  (cwUnits,  e->units); 
pwN  =  ((e->N  >  0)&&(e->N  <  151))  ?  (e->N) :  -1; 
switch  ( Orient ) 

{ 

case  0:  rwSize  =  rwSizeX;  break; 
easel:  rwSize  =  rwSizeY;  break; 

case  2:  rwSize  =  sqrt(rwSizeY*rwSizeY  +  rwSizeX*rwSizeX);  break; 
default:  rwSize  =  1 .0; 

} 

rwH  =  rwSize  /  pwN; 
strcpy  (cwFmt,  "%.2f '); 

strcpy  ( ClassName,  typeid  (this).name()  ); 

::MessageBox  (0,"ClassName  defmed","Info",MB_OK); 
IdClassMessage  (); 

} 

H - 

TAxisPlot ::  TAxisPlot  ( TWindow  *  parent,  TBasePlot*  p  ) 

:  TBasePlot  ( ) 

{  Axe  =  NULL; 

Orient  =  -1; 

rwOrgX=  0.0;  rwOrgY  =  0.0; 
rwEndX=  1.0;  rwEndY  =  1.0; 

Color  =  RGB  (  127,  127,  127  ); 

rwSizeX  =  rwEndX  -  rwOrgX;  rwSizeY  =  rwEndY  -  rwOrgY ; 
rwScaleX  =  pwLengthX/rwSizeX;  rwScaleY  =  pwLengthY/rwSize Y ; 
rwStepX  =  1.0/rwScaleX;  rwStepY  =  1.0/rwScaleY; 

delete  Pen;  Pen  =  new  TPen  (Color); 
strcpy  (cwAname,"  e->name  ");  strcpy  (cwUnits,"  e->units"); 
pwN  =  1;  rwSize  =  1.0; 
rwH  =  rwSize  /  pwN; 


strcpy  (cwFmt,  "%.2f '); 

"MessageBox  (0,"Axis  NULL  pointer", "Error", MB  OK); 

strcpy  ( ClassName,  typeid  (this).name()  ); 

:  MessageBox  (0,"ClassName  defined","Info",MB_OK); 
IdClassMessage  (); 

} 

H - 

void  TAxisPlot ::  Draw  (  TDC  &  dc  ) 

{  num  X  =  rwOrgX; 
num  y  =  rwOrgY; 

dc.SelectObject  (*Pen); 

dc.MoveTo  ( pwXl,  pwYl  ); 
dc.LineTo  (  pwX2,  pwY2  ); 
for(inti=l;  i<pwN;  i++) 

{ 

dc.MoveTo  ( lex  (  x  ),  Icy  ( y ) ); 

//  dc.LineTo  ( lex  (  x  ),  Icy  ( y ) ); 

x+=TwSizeX/pwN ; 

} 

dc.RestorePen  (); 

}; 

H. - 

void  TAxisPlot Erase  ( TDC  &  dc ) 

{  Draw(dc);  }; 

//. - 

void  TAxisPlot ::  ScaleTo  ( int  Xs,  int  Ys ) 

{ 

TBasePlot ::  ScaleTo  ( Xs,  Ys ); 
switch  ( Orient ) 

{ 

case  0:  rwSize  =  rwSizeX;  break; 
easel:  rwSize  =  rwSizeY;  break; 

case  2:  rwSize  =  sqrt(rwSizeY''‘rwSizeY  +  rwSizeX*rwSizeX);  break; 
default:  rwSize  =1.0; 

} 

}; 

//. - 

void  TAxisPlot ::  Privateinfo  (char*  info) 

{  charbuf[80]; 

sprintf  (buf,"  Name  =  %s,  N  =  %d,  h  =  %.3f,  Fmt  =  %s.  Orient  =  %d  \n", 
ewAname,  pwN,  rwH,  cwFmt,  Orient); 
strcpy  (info,  buf); 

//  if  (Axe)  strcpy  (buf,  typeid  (Axe).nameO); 

//  else  strcpy  (buf,  "NULL  pointer"); 

//  streat  (info, "Axe:  ");  streat  (info,  buf); 

}; 


j if.  iliit.il.  if.  if  TBOUIldSPlOt  —————— _ —————————  */ 

//. - 

TBoundsPlot ::  TBoundsPlot  ( axis  *  e,  TRect&  x,  int  ori,  TBasePlot*  p ) 
:  TAxisPlot  (  e,  x,  ori,  p  ) 

{  strcpy  ( ClassName,  typeid  (this).name()  ); 

} 

//. - 


void  TBoundsPlot Draw  ( TDC  &  dc  ) 

{ 

dc.SelectObject  (*Pen); 
dc.RestorePen  (); 

}; 

/^ - 

void  TBoundsPlot ::  Erase  (  TDC  &  dc  ) 

{  Draw(dc);  }; 

H. - 

void  TBoundsPlot ::  Privateinfo  (char*  info) 

{  charbuf[80]; 

TAxisPlot ::  Privateinfo  ( info ); 
sprintf  (buf,"  BounaryType;  %d\n",  (int)Bnd); 
strcat  (info,  buf); 

}; 


XLinesPlot _ */ 

/^ - 

TLinesPlot ::  TLinesPlot  (  TAbstrPhysVal  *  e,  TRect&  x,  TBasePlot*  p  ) 
:  TBasePlot  (  x,  p ),  PhVal  (  e  ) 

{  if(e) 

{  rwOrgX  =  e->Org;  rwOrgY  =  e->Min; 
rwEndX  =  e->End;  rwEndY  =  e->Max; 

} 

else 

{  rwOrgX=  0.0;  rwOrgY=  0.0; 
rwEndX  =  10.0;  rwEndY  =  10.0; 

;:MessageBox  (0,"PhysVal  NULL  pointer", "Error",MB_OK); 

} 

rwSizeX  =  rwEndX  -  rwOrgX;  rwSizeY  =  rwEndY  -  rwOrgY; 
if  (rwSizeX  <=  0.0)  rwSizeX  =  1.0; 
if  (rwSizeY  <=  0.0)  rwSizeY  =  1.0; 
rwScaleX  =  pwLengthX/rwSizeX;  rwScaleY  =  pwLengthY/rwSizeY ; 
rwStepX  =  1 .0/rwScaleX;  rwStepY  =  1 .0/rwScaleY; 

Color  =  RGB  ( 255,  255, 255  ); 

Pen  =  new  TPen  (Color); 

Static  =  0; 

strcpy  ( ClassName,  typeid  (this).name() ); 

} 

//. - 

TLinesPlot ::  TLinesPlot  ( TWindow  *  parent,  TBasePlot*  p  ) 

:  TBasePlot  ( ),  PhVal  (  0  ) 

{ 

strcpy  (  ClassName,  typeid  (this).name() ); 

} 

//. - 

void  TLinesPlot ::  Draw  (  TDC  «fe  dc  ) 

{ 

chartxt[]  =  'TD"; 
double  d,  w,  a,  h; 
num  X,  y; 

h  =  rwSlzeX  /  pwLengthX; 
a  =  rwSizeY  *  0.25; 
w  =  6.28  *  8  /rwSizeX; 


dc.MoveTo  (  pwXl,  Icy  (0.0)  ); 
dc.SelectObject  (*Pen); 
for  (  mt  i=l ;  i  <  pwLengthX;  i++) 

{  a  *=  0.9; 

X  =  num  (rwOrgX  +  i  *  h); 
y  =  num  (a  *  sin  (w  ♦  x)); 
dc.LineTo  ( lex  (  x ),  Icy  (  y  ) ); 

} 

dc.RestorePen  (); 

}; 

H- - 

void  TLinesPlot ::  Erase  ( TDC  &  dc ) 

{ 

chartxt[]  =  "lD"; 
double  d,  w,  a,  h; 
num  X,  y; 

h  =  rwSizeX  /  pwLengthX; 
a  =  rwSizeY  *  0.25; 
w  =  6.28  *  8  /rwSizeX; 

dc.MoveTo  (  pwXI,  Icy  (0.0)  ); 
dc.SelectObject  (*Pen); 
for  ( int  i=l ;  i  <  pwLengthX;  i++) 

{  a*=  0.9; 

X  =  num  (rwOrgX  +  i  *  h); 
y  =  num  (a  *  sin  (w  *  x)); 
dc.LineTo  ( lex  ( x ),  Icy  ( y ) ); 

} 

dc.RestorePen  (); 

}; 

H- - 

void  TLinesPlot ::  Privateinfo  (char*  info) 

{  charbuf[80]; 

sprintf  (buf,"  N  =  %d\n",  pwN); 

strepy  (info,  buf); 

strepy  (buf,  typeid  (PhVal).name()); 
streat  (info,"PhysVal: ");  streat  (info,  buf); 

}; 


fPoijitsPlot _ 

//. - 

void  TPointsPlot ::  Draw  (  TDC  &  dc ) 

{  num  X  =  rwOrgX; 
num  y  =  rwOrgY; 

dc.SelectObject  (*Pen); 

dc.MoveTo  (  pwXl,  pwYl  ); 
for(inti=l;  i<pwN;  i++) 

{ 

dc.MoveTo  ( lex  (  x  ),  Icy  (  y  )  ); 

//  dc.LineTo  ( lex  (  x  ),  Icy  (  y  )  ); 

x+=rwSizeX;  //pwN; 

} 

dc.RestorePen  (); 

}; 

H- - 


void  TPointsPlot ::  Erase  (  TDC  &  dc  ) 

{  Draw(dc);  }; 

XFuncPlot _ */ 

//. - 

XFuncPlot ::  XFuncPlot  ( XFunctionVal*  e,  XRect&  x,  XBasePlot*  p ) 
:  TLinesPlot  ( e,  x,  p  ) 

{ 

strcpy  ( ClassName,  typeid  (this).nameO  ); 

}; 

//. - 

XFuncPlot ::  XFuncPlot  ( XWindow  *  parent,  XBasePlot*  p  ) 

:  XLinesPlot  (  parent,  p ) 

{ 

strcpy  (  ClassName,  typeid  (this).name()  ); 

}; 

H. - 

void  XFuncPlot ::  Draw  (  XDC  &  dc ) 

{  num  X  =  rwOrgX; 
numy  =  rwOrgY; 

dc.SelectObject  (*Pen); 

dc.MoveXo  (  pwXl,  pwYl  ); 
for(inti=l;  i<pwN;  i++) 

{ 

dc.MoveTo  ( lex  ( x ),  Icy  ( y ) ); 

//  dc.LineTo  ( lex  ( x ),  Icy  ( y ) ); 

x+=rwSizeX;  //pwN; 

} 

dc.RestorePen  0; 

}; 

//. - 

void  XFuncPlot ::  Erase  ( XDC  &  dc ) 

{  Draw(dc);  }; 

XArrayPlot _ */ 

//. - 

XArrayPlot ::  XArrayPlot  (  XGridVal*  e,  TRect&  x,  XBasePlot*  p  ) 

:  TLinesPlot  ( e,  x,  p ) 

{ 

//  array  A  (  e->data,  e->Mesh->Nl,  e->Mesh->N2  ); 

//  array  A  =  matrix  X  ( e->data,  e->Mesh->Nl,  e->Mesh->N2  ).row  (k); 
strcpy  ( ClassName,  typeid  (this).name()  ); 

}; 

H. - 

XArrayPlot ::  XArrayPlot  (  XWindow  *  parent,  XBasePlot*  p  ) 

:  TLinesPlot  (  parent,  p  ) 

{ 

strcpy  (  ClassName,  typeid  (this).name() ); 

} 

//. - 

void  XArrayPlot ::  Draw  (  TDC  &  dc ) 

{ num  x=rwOrgX; 
num  y=rwOrgY; 

dc.SelectObject  (*Pen); 


dc.MoveTo  ( pwXl,  pwYl  ); 
for(inti=l;  i<pwN;  i++) 

{ 

dc.MoveTo  ( lex  (  x  ),  Icy  (  y  )  ); 

//  dc.LineTo  ( lex  ( x ),  Icy  (  y  ) ); 

x+=rwSizeX;  //pwN; 

} 

dc.RestorePen  (); 

}; 

//. - 

void  TArrayPlot ::  Erase  ( TDC  &  dc ) 

{  Draw(dc);  }; 

TFramePlot _ */ 

//. - 

TFramePlot ::  TFramePlot  ( TFrameStruct*  e,  TRect&  x,  TBasePlot*  p ) 
:  TBasePlot  ( x,  p ) 

{ char  *  erp; 

FramClr  =  RGB(  0,  0,255); 

AxisClr  =  RGB(255,  0,  0); 

MeshClr  =  RGB  (  127, 255,  0  ); 

TextClr  =  RGB  (  0,  127,  127  ); 

FramPen  =  new  TPen  (FramClr,  l.PS  DASH); 

AxisPen  =  new  TPen  (AxisClr,  2,  PS  SOLID); 

MeshPen  =  new  TPen  (MeshClr,  1,  PS_DASHDOT); 
pwMeshX  =  atoi  (e->X.svM);  pwMeshY  =  atoi  (e->Y.svM); 
pwNx  =  atoi  (e->X.svN);  pwNy  =  atoi  (e->Y.svN); 
strepy  (cwXname,  e->X.svName);  strepy  (cwYname,  e->Y.svName); 
strepy  (cwXunits,  e->X.svUnits);  strepy  (cwYunits,  e->Y.svUnits); 
strepy  (cwXfmt,  e->X.svFmt);  strepy  (cwYfint,  e->Y.svFmt); 
strepy  (cwName,  e->svName); 
rwOrgX  =  (num)  strtod  (e->X.svOrg,  &erp  ); 
rwEndX  =  (num)  strtod  (e->X.svEnd,  &erp  ); 
rwOrgY  =  (num)  strtod  (e->Y.svOrg,  &erp  ); 
rwEndY  =  (num)  strtod  (e->Y.svEnd,  &erp  ); 
rwSizeX  =  rwEndX  -  rwOrgX;  rwSizeY  =  rwEndY  -  rwOrgY; 
if  (rwSlzeX  <=  0.0)  rwSizeX  =  1 .0; 
if  (rwSizeY  <=  0.0)  rwSizeY  =  1.0; 
rwScaleX  =  pwLengthX/rwSizeX;  rwScaleY  =  pwLengthY/rwSizeY ; 
rwStepX  =  1 .0/rwScaleX;  rwStepY  =  1.0/rwScaleY; 

rwHx  =  rwSizeX/pwMeshX;  rwHy  =rwSizeY/pwMeshY; 
strepy  (  ClassName,  typeid  (this).name() ); 

} 

H - 

TFramePlot ::  TFramePlot  (  TWindow*  parent,  TBasePlot*  p  ) 

:  TBasePlot  ( ) 

{ 

char  *  erp; 

FramClr  =  RGB  (  0,  0,255); 

AxisClr  =  RGB  ( 255,  0,  0); 

MeshClr  =  RGB  (  127,  255,  0  ); 

TextClr  =  RGB  (  0,  127,  127  ); 

FramPen  =  new  TPen  (FramClr,  1,PS_DASH); 

AxisPen  =  new  TPen  (AxisClr,  2,  PS  SOLID); 


MeshPen  =  new  TPen  (MeshClr,  1,  PSDASHDOT); 
strcpy  (  ClassName,  typeid  (this).name() ); 

} 

II. - 

TFramePlot -TFramePlot  (  ) 

{  TBasePlot  ::~TBasePlot  0; 

delete  FramPen;  delete  MeshPen;  delete  AxisPen; 

}; 

//. - 

void  TFramePlot ::  Draw  ( TDC  &  dc ) 

{ 

dc.MoveTo  (pwXl,  pwYl  ); 
dc.SelectObject  (*FramPen); 

dc.LineTo  (  pwXl+pwLengthX,  pwYl ); 
dc.LineTo  ( pwXl+pwLengthX,  pwYl+pwLengthY  ); 
dc.LineTo  (pwXl,  pwYl+pwLengthY  ); 

dc.LineTo  (pwXl,  pwYl ); 

dc.RestorePen  (); 

}; 

//. - 

void  TFramePlot ::  Erase  (  TDC  &  dc  ) 

{  Draw(dc);  }; 

H. - 

void  TFramePlot ::  Privateinfo  (char*  info) 

{  charbuf[80]; 

sprintf  (buf,"  Name  =  %s\n",  cwName); 
strcpy  (info,  buf); 

//  strcpy  (buf,  typeid  (PhVal).name()); 

//  strcat  (info,"PhysVal: ");  strcat  (info,  buf); 

}; 

XRegionPlot _ */ 

//. - 

TRegionPlot ::  TRegionPlot  ( TAbstrRegion*  e,  TRect&  x,  TBasePlot*  p ) 
:  TBasePlot  (  x,  p ),  Rgn  (  e  ) 

{  Rgn  =  e; 

TGeomAxis  *  hrz  =  Rgn  ->  XI  (); 

TGeomAxis  *  vrt  =  Rgn  ->  X2  (); 

BndOpenClr  =  RGB  (  0,  0,  255  ); 

BndMetalClr  =  RGB  (  255,  0,  0  ); 

BndSymClr  =  RGB  (  127,  255,  0); 

BndPeriodClr  =  RGB  (  0, 127,  127  ); 

BndOpenPen  =  new  TPen  (BndOpenClr,  1,PS_DASH); 
BndMetalPen  =  new  TPen  (BndMetalClr,  2,  PS  SOLID); 
BndSymPen  =  new  TPen  (BndSymClr,  1,  PS  DASHDOT); 
BndPeriodPen  =  new  TPen  (BndPeriodClr,  1,  PS  SOLID); 
if  ((hrz)  &&  (vrt)) 

{ 

rwOrgX  =  hrz->org;  rwOrgY  =  vrt->org; 

rwEndX  =  hrz->end;  rwEndY  =  vrt->end; 

strcpy  (cwXname,  hrz->name);  strcpy  (cwYname,  vrt->name); 
strcpy  (cwXunits,  hrz->units);  strcpy  (cwYunits,  vrt->units); 
pwNx  =  ((hrz->N  >  0)&&(hrz->N  <  51))?  hrz->N  :  -1; 
pwNy  =  ((vrt->N  >  0)&&(vrt->N  <  51))?  vrt->N  :  -1; 


pwMeshX  =  hrz->N;  pwMeshY  =  vrt->N; 

pwLeftBnd  =  TBoundaryType(hrz->boundl);  pwRightBnd  =  TBoundaryType  (hrz->bound2); 
pwBottomBnd  =  TBoundaryType(vrt->boundl);  pwTopBnd  =  TBoundaryType  (vrt->bound2); 
} 

else 

{ 

::MessageBox  (0,"Horiz  Or  Vert  Axis  NULL  pomter'V'Error",MB_OK); 
rwOrgX=  0.0;  rwOrgY=  0.0; 

rwEndX  =  10.0;  rwEndY  =  10.0; 

strcpy  (cwXname,  "Ifiii  X");  strcpy  (cwYname,  "Ifiii  Y"); 
strcpy  (cwXunits,"cm");  strcpy  (cwYunits,"in"); 
pwNx  =  -l;  pwNy  =  -l; 
pwMeshX=  20;  pwMeshY=  10; 

pwLeftBnd  =  1;  pwRightBnd  =  3; 
pwBottomBnd  =  2;  pwTopBnd=  4; 

} 

pwNx  =  ((pwMeshX  >  0)&&(pwMeshX  <  151))?  pwMeshX  :  10; 
pwNy  =  ((pwMeshY  >  0)&&(pwMeshY  <  151))?  pwMeshY  :  10; 
rwHx  =  rwSizeX  /  pwNx;  rwHy  =  rwSizeY  /  pwNy; 

strcpy  ( ClassName,  typeid  (thls).name()  ); 

Adjust  0; 

} 

//. - 

TRegionPlot ::  TRegionPlot  ( T Window*  parent,  TBasePlot*  p  ) 

:  TBasePlot  ( ) 

{ 

strcpy  ( ClassName,  typeid  (this).name() ); 

Adjust  0; 

} 

//. - 

TRegionPlot ::  ~TRegionPlot  ( ) 

{  TBasePlot  ::~TBasePlot  0; 

delete  BndOpenPen;  delete  BndMetalPen; 
delete  BndSymPen;  delete  BndPeriodPen; 

}; 

//. - 

long  TRegionPlot ::  BndColor  (  TBoundaryType  ind  ) 

{  switch  (ind) 

{  case  ConductingBnd:  return  (BndMetalClr); 
case  OpenBnd:  return  (BndOpenClr); 

case  AxisymmetricBnd:  return  (BndSymClr); 
case  PeriodicBnd:  return  (BndPeriodClr); 

default:  return  (Color); 

} 

}; 

//. - 

TPen*  TRegionPlot ::  BndPen  ( TBoundaryType  ind ) 

{  switch  (ind) 

{  case  ConductingBnd:  return  (BndMetalPen); 
case  OpenBnd:  return  (BndOpenPen); 

case  AxisymmetricBnd:  return  (BndSymPen); 
case  PeriodicBnd:  return  (BndPeriodPen); 

default:  return  (Pen); 

} 


}; 

//. - - - 

void  TRegionPlot ::  Draw  (  TDC  &  dc  ) 

{ 

dc.MoveTo  ( pwXl,  pwYl  ); 
dc.SelectObject  (*BndPen  (pwTopBnd)); 

dc.LineTo  ( pwXl+pwLengthX,  pwYl  );  dc.RestorePen  (); 

dc.SelectObject  (♦BndPen  (pwRightBnd)); 

dc.LineTo  (  pwXl+pwLengthX,  pwYl+pwLengthY  );  dc.RestorePen  (); 
dc.SelectObject  (*BndPen  (pwBottomBnd)); 

dc.LineTo  (  pwXl,  pwYl+pwLengthY );  dc.RestorePen  (); 

dc.SelectObject  (*BndPen  (pwLeftBnd)); 

dc.LineTo  (  pwX  1 ,  pwY  1  );  dc.RestorePen  (); 

}; 

//. - 

void  TRegionPlot ::  Erase  (  TDC  &  dc  ) 

{  Draw(dc);  }; 

//- - 

void  TRegionPlot Privateinfo  (char*  info) 

{  charbuf[80]; 

sprintf  (buf,"  Name  =  %s\n",  cwName); 
strcpy  (info,  buf); 

//  strcpy  (buf,  typeid  (Rgn).name()); 

//  strcat  (info,"Rgn: ");  strcat  (info,  buf); 

}; 


/♦♦♦♦♦♦♦♦♦♦♦♦♦***  TMeshPlot _ * / 


TMeshPlot ::  TMeshPlot  ( TAbstrMesh*  e,  TRect&  x,  TBasePlot*  p ) 
:  TRegionPlot  (  (e->Rgn),  x,  p  ),  Mesh  (  e  ) 

{ 

strcpy  (  ClassName,  typeid  (this).nameO  ); 

} 

//. - 

TMeshPlot ::  TMeshPlot  ( T Window*  parent,  TBasePlot*  p  ) 

:  TRegionPlot  (  parent,  p  ) 

{ 

strcpy  ( ClassName,  typeid  (this).name()  ); 


void  TMeshPlot ::  Draw  ( TDC  &  dc ) 

{  inti; 

dc.SelectObject  (*Pen); 
for  ( i=l;  i  <  pwNy;  i++) 

{  dc.MoveTo  ( pwXl,  Icy  (rwOrgY  +  i*rwHy)  ); 

dc.LineTo  (  pwXl+pwLengthX,  Icy  (rwOrgY  +  i*rwHy)  ); 

} 

for  ( i=l ;  i  <  pwNx;  i++) 

{  dc.MoveTo  ( lex  (rwOrgX  +  i*rwHx),  pwYI  ); 

dc.LineTo  ( lex  (rwOrgX  +  i*rwHx),  pwYI+pwLengthY  ); 

} 

dc.RestorePen  (); 

}; 

//. - 


void  TMeshPlot Erase  (  TDC  &  dc  ) 

{  Draw(dc);  }; 

//. - 

void  TMeshPlot ::  Privatelnfo  (char*  info) 

{  charbuf[80]; 

TRegionPlot ::  Privatelnfo  ( info  ); 
sprintf  (buf,"  Name  =  %s\n",  cwName); 
strcpy  (info,  buf); 

//  strcpy  (buf,  typeid  (Rgn).name()); 

//  strcat  (info,"Rgn: ");  strcat  (info,  buf); 

}; 

// _ 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

//  TPlotsList 

TPlotsList ::  TPlotsList  ( TBasePlot  *  frst ) 

{ 

First  =  frst;  Ne  =  1 ; 

TBasePlot  *  p  =  First; 
while  (  p->next ) 

{  p  =  p->next; 

++Ne; 

} 

}; 

//- - 

TPlotsList ::  -TPlotsList  ( ) 

{ 

TBasePlot  *c,  *  p  =  First; 
while  ( p ) 

{  c  =  p;  p  =  p->next; 
delete  c;  — Ne; 

} 

}; 

H- - 

void  TPlotsList ::  Ins  ( TBasePlot  *  Plot ) 

{ 

if(Ne==0)  First  =  Plot; 
else 

{  TBasePlot  *  p  =  First; 
while  ( p->next )  p  =  p->next; 

p->next  =  Plot; 

} 

Plot->next  =  0;  ++Ne; 

}; 

//. - 

void  TPlotsList ::  Del  (  TBasePlot  *  Plot ) 

{ 

if(Ne==0)  return; 

TBasePlot  *c,  *  p  =  First; 
if  (Plot  !=  First) 

{  while  ( p ) 

{ if  ((p->next)  ==  Plot) 

{  c  =  p->next; 


p->next  =  c->next; 
delete  c;  -Ne;  break; 

} 

p  =  p->next; 

} 

} 

else 

{  c  =  First->next; 
delete  First; 

First  =  c;  --Ne; 

} 

}; 

n - 

void  TPlotsList ::  Del  ( int  k ) 

{ 

if(Ne==0)  return; 

TBasePlot  *c,  *  p  =  First;  int  j  =  1 ; 
if(k!=l) 

{  while  ( p ) 

{if(k==++j) 

{  c  =  p->next; 

p->next  =  c->next; 
delete  c;  —Ne;  break; 

} 

p  =  p->next; 

} 

} 

else 

{  c  =  First->next; 
delete  First; 

First  =  c;  --Ne; 

} 

}; 

II. - 

void  TPlotsList ::  ScaleTo  ( int  Xs,  int  Ys  ) 

{ 

if(Ne==0)  return; 

TBasePlot  *  plot  =  First; 
while  (  plot ) 

{  plot  ->  ScaleTo  (  Xs,  Ys  ); 
plot  =  (plot->next); 

} 

}; 

//. - 

void  TPlotsList ::  Draw  ( TDC  &  dc,  BOOL  NonStaticOnly  ) 

{ 

if  (  Ne  ==  0  )  return; 

TBasePlot  *  plot  =  First; 
while  (  plot ) 

{ 

if  (!(plot  ->  Static)  ||  (INonStaticOnly)) 
plot  ->  Draw  (  dc  ); 
plot  =  (plot->next); 

} 


}; 

n- - 

void  TPlotsList ::  Redraw  (  TDC  &  dc,  BOOL  NonStaticOnly  ) 

{ 

if(Ne==0)  return; 

TBasePlot  *  plot  =  First; 
while  (  plot ) 

{ 

if  (!(plot  ->  Static)  ||  (INonStaticOnly)) 

{  plot ->  Erase  ( dc ); 
plot -> Draw  (dc); 

} 

plot  =  (plot->next); 

} 

}; 

//- - 

void  TPlotsList ::  Revision  (BOOL  NonStaticOnly ) 

{  char  txt  [80]; 

if  (NonStaticOnly)  strcpy  (txt,"  NonStatic  "); 
else  strcpy  (txt,"  Certain  "); 
strcat  (txt,  "  Plots  List "); 
if(Ne==0) 

{  strcat  (txt,  "is  Empty  !"); 

"MessageBox  (0,  txt,  "Revision",  MBJCONINFORMATION  |  MB_OK); 
return; 

} 

sprintf  (txt,"  %s  \n  Ne  =  %d ",  txt,  Ne); 

"MessageBox  (0,  txt,  "Revision",  MBJCONINFORMATION  |  MB_OK); 

TBasePlot  *  plot  =  First; 
while  ( plot ) 

{ 

if  (!(plot  ->  Static)  ||  (INonStaticOnly)) 
plot  ->  IdClassMessage  (  ); 
plot  =  (plot->next); 

} 

}; 

//. - 

int  TPlotsList ::  Element  (  char*  item,  int  k  ) 

{ 

int  Res  =  0; 

if(Ne==0)  return  Res; 

TBasePlot  *  p  =  First;  intj  =  0; 
while  ( p  ) 

{  if(k==++j) 

{  sprintf  (item,"%d  :  %s",  p->id,  p->ClassName); 

Res=j;  break; 

} 

p  =  p->next; 

} 

return  Res; 

}; 

//. - 

void  TPlotsList ::  ForEach  ( void  (*Procedure)  (TBasePlot  *  )  ) 

{ 


if(Ne==0)  return; 

TBasePlot  *  plot  =  First; 
while  (  plot ) 

{  Procedure  ( plot ); 

plot  =  (plot->next); 

} 

}; 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

n - 

TAxisStruct ::  TAxisStruct  () 

{ int  rx  =  10; 


svName  [0]  =0; 

sprintf  ( 

svOrg, 

"%g",  0.0); 

sprintf  ( 

svEnd, 

"%g",  1.0); 

itoa  (10, 

svN, 

rx); 

itoa(  10, 

svM, 

rx); 

strcpy  ( 

svFmt, 

"%.2f' ); 

sprintf  ( 

svH, 

"%g",  0.1  ); 

svUnits  [0]  =  0; 

itoa  (10, 

svXl, 

rx); 

itoa  (10, 

svYl, 

rx); 

itoa  ( 90, 

svX2, 

rx); 

itoa  ( 90, 

svY2, 

rx); 

}; 

H - 

TAxisStruct ::  TAxisStruct  ( axis  &  A ) 
{ intrx=  10; 

strcpyC  svName,  A.name); 

sprintf  (  svOrg,  "%g",  A.org ); 
sprintf(  svEnd,  "%g",  A.end); 
itoa  (  A.N,  svN,  rx); 

itoa  (  A.N,  svM,  rx); 


strcpy  ( 

svFmt, 

"%.2f ' ); 

sprintf  ( 

svH, 

"%g",  A.step ): 

strcpy  ( 

svUnits, 

A.units  ); 

itoa  (10, 

svXl, 

rx); 

itoa(  10, 

svYl, 

rx); 

itoa  (  90, 

svX2, 

rx); 

itoa  (  90, 

svY2, 

rx); 

}; 

II. - 

void  TAxisStruct ::  GetData  (  axis  &  A  ) 

{ char  *  erp; 

strcpy  (  A.name,  svName  ); 

A.org  =  (num)  strtod  (  svOrg,  &erp  ); 
A.end  =  (num)  strtod  (  svEnd,  &erp); 
A.N  =  atoi  (  svN  ); 

A.step  =  (num)  strtod  (  svH,  &erp); 
strcpy  (  A.units,  svUnits  ); 

}; 


//- - 

TFrameStruct ::  TFrameStruct  () 

{ 


TAxisStruct  X  (); 

TAxisStruct  Y  (); 

svName  [0]  =  0; 

}; 

u. - 

TFrameStruct ::  TFrameStruct  (  axis  &  Hrz,  axis  &  Vrt  ) 

{ 

TAxisStruct  X  ( Hrz  ); 

TAxisStruct  Y  ( Vrt ); 

svName  [0]  =  0; 

}; 

//. - 

void  TFrameStruct ::  GetData  ( axis  &  Hrz,  axis  &  Vrt ) 

{ 

X. GetData  (  Hrz  ); 

Y. GetData  (  Vrt ); 

}; 

//. - 


3. DIALOG  CLASSES 

Dialog  classes  are  necessary  to  create  a  friendly  environment  for  the 
user  working  with  the  software  package.  In  view  of  the  fact  that  the  project 
under  developments  meant  for  operation  under  MS  WINDOWS  we  make  use  of  the 
OWL  Library,  v.2  compiled  by  Borland. 

THe  report  contains  the  child  classes  from  the  class  TDialog  OWL  Borland 
Library.  They  were  developed  for  input  and  variation  of  data  required  to 
initialize  new  objects.  In  addition  to  the  input  dialog  windows  the  library 
contains  windows  for  systems  messages  and  information  windows. 

Windows  informing  of  the  version  and  authors  of  the  code. 

uAAAAAAAAAAAAAAAAi,  uAAAAAAAAAAAAAt 

^ProjectRCVersion^  ’  OWL-class  ’ 

AAAAAAAAAAAAAAAAAu  ’  TDialog  AAAAAA^ 
AAAAAAAAAAAAAAu  ’ 

’  TAboutVersDlg  ’ 

AAAAAAAAAAAAAAAAAu 

The  dialog  window  (TInfoDig  1 )  and  the  data  structure  (TlnfoTrsl) 
are  to  output  information  data  on  reserves  of  the  computer,  on  computetional 
model,  etc.  through  the  window  of  the  class  TInfoDig  1. 

uAAAAAAAAAAAAA^ 

’  OWL-class  ’ 

’  TDialog  AAAAA^ 

uAAAAAAAAAAAAAAAAi  AAAAAAAAAAAAAAu  " 

’  TlnfoTrsl  AAAAAAAAAAAAAAA'  TlnfoDlgl  * 
AAAAAAAAAAAAAAAAAu  AAAAAAAAAAAAAAAAu 


The  dialog  window  (TRegion  Dig)  are  to  input  data  into  the  class  TAbstr 
and  its  child  classes. 


uAAAAAAAAAAAAAi, 

^  OWL-class  = 

"  TDialog  AAAAAAi, 

uAAAAAAAAAAAAAAAAAi  AAAAAAAAAAAAAAu  ’ 

’  TReglonBndsTrsl  AAaAAAAAAAAAAA'  TRegionBndsDlg  ’ 

AAAAAAAAAAAAAAAAAAu  AAAAAAAAAAAAAAAAAu 

A  service  class  to  check  the  input  information  in  the  dialog  window 
(TRegionBndsDlg). 

uAAAAAAAAAAAAAAAAAAi, 

'  OWL-class  ’ 

^  TFilterValidator  AAAA^ 

AAAAAAAAAAAAAAAAAAAu  ^ 

^  TAboutVersDlg  * 

AAAAAAAAAAAAAAAAAAAAu 

I*  */ 

/*  ObjectOriented  PIC  for  C++  */ 

/*  Version  1.00  */ 

/*  Copyright  (c)  1993, 1994  The  Group  Compuetr  Simulation  */ 

/*  High  Current  Electronics  Institute  */ 

/*  Contract  SPC93-4035(F6170893W0612)  ♦/ 

/*  */ 

/*  Last  write  10-20-94  */ 

#if  [defined  CPS_ABOUT_H) 

#define  _PS_ABOUT_H 

#include  <owl\dialog.h> 

#include  "ps  idres.rh" 

class  TAboutVersDlg  :  public  TDialog 

{ 

public: 

TAboutVersDlg  (TWindow  *  parent, 

TResId  resid  =  iddAboutVer, 

TModule  *  module  =  0); 
virtual  -TAboutVersDlg  (); 

public: 

void  SetupWindow  (); 

}; 


#endif 

/***  PS_ABOUT.CPP  ***/ 
//  #include  <_allpch.h> 

//  #pragma  hdrstop 


#include  <owl\static.h> 


#mclude  <ver.h> 


tfinclude  "ps  owl.rh" 

#include  "ps_idres.rh" 

#include  "ps_about.h" 

//  Reading  the  VERSIONINFO  resource, 
class  ProjectRCVersion 
{ 

public; 

ProjectRCVersion  (TModule  *niodule); 
virtual  -ProjectRCVersion  (); 

BOOL  GetProductName  (LPSTR  &prodName); 

BOOL  GetProductVersion  (LPSTR  &prodVersion); 

BOOL  GetAuthorName  (LPSTR  &authorName); 

BOOL  GetCopyright  (LPSTR  &copyright); 

BOOL  GetDebug  (LPSTR  &debug); 

protected: 

LPBYTE  TransBlock; 
void  FAR  *FVData; 

private: 

//  Don't  allow  this  object  to  be  copied. 

ProjectRCVersion  (const  ProjectRCVersion  &); 
ProjectRCVersion  &  operator  =(const  ProjectRCVersion  &); 

}; 


ProjectRCVersion:  :ProjectRCVersion  (TModule  *module) 

{ 

char  appFName[255]; 

DWORD  fvHandle; 

UINT  vSize; 

FVData  =  0; 

niodule->GetModuleFileName(appFName,  sizeof(appFNanie)); 

DWORD  dwSize  =  GetFileVersionlnfoSize(appFName,  &fVHandle); 
if  (dwSize)  { 

FVData  =  (void  FAR  *)new  char[(UINT)dwSize]; 
if  (GetFileVersionInfo(appFName,  fvHandle,  dwSize,  FVData)) 
if  (!VerQueryValue(FVData,  "WVarFileInfoWTranslation",  (void  FAR""  FAR*)&TransBlock, 
&vSize))  { 

delete  FVData; 

FVData  =  0; 

} 

} 

} 


ProjectRCVersion:  :~ProjectRCVersion  () 

{ 

if  (FVData) 


delete  FVData; 

} 


BOOL  ProjectRCVersion::GetProductName  (LPSTR  &prodName) 

{ 

UINT  vSize; 

char  subBlockName[255]; 

wsprintf  ( subBlockName, 

"\\StringFileInfo\\%081x\\%s", 

♦(DWORD  *)TransBlock, 

(LPSTR)"ProductName"); 
return  FVData  ? 

VerQueryValue  ( FVData, 
subBlockName, 

(void  FAR*  FAR*)  &  prodName, 

&vSize  ) 

:  FALSE; 

} 


BOOL  ProjectRCVersion::GetProductVersion  (LPSTR  &prodVersion) 

{ 

UINT  vSize; 

char  subBlockName[255]; 

wsprintf  ( subBlockName, 

''\\StrlngFileInfo\\%081x\\%s", 

♦(DWORD  *)TransBlock, 
(LPSTR)"ProductVersion"); 

return  FVData  ? 

VerQueryValue  (  FVData, 
subBlockName, 

(void  FAR*  FAR*)&prodVersion, 

&vSize ) 

:  FALSE; 

} 

BOOL  ProjectRCVersion:;GetAuthorName  (LPSTR  &authName) 

{ 

UINT  vSize; 

char  subBlockName[255]; 

wsprintf  (  subBlockName, 

"\\StringFileInfo\\%081x\\%s", 

♦(DWORD  *)TransBlock, 

(LPSTR)"AuthorName"); 
return  FVData  ? 

VerQueryValue  ( FVData, 
subBlockName, 

(void  FAR*  FAR*)  &  authName, 

&vSize  ) 


:  FALSE; 


} 


BOOL  ProjectRCVersion:;GetCopyright  (LPSTR  &copyright) 

{ 

UINT  vSize; 

char  subBlockName[255]; 

wsprintf  ( subBlockName, 

"\\StrmgFileInfo\\%081x\\%s", 

♦(DWORD  *)TransBlock, 
(LPSTR)"LegalCopyright"); 
return  FVData  ? 

VerQueryValue  (  FVData, 
subBlockName, 

(void  FAR*  FAR*)  &  copyright, 

&  vSize) 

:  FALSE; 

} 


BOOL  ProjectRCVersion::GetDebug  (LPSTR  &debug) 

{ 

UINT  vSize; 

char  subBlockName[255]; 

wsprintf  ( subBlockName, 

"\\StringFileInfo\\%081x\\%s", 

♦(DWORD  *)TransBlock, 

(LPSTR)"SpecialBuild"); 
return  FVData  ? 

VerQueryValue  ( FVData, 
subBlockName, 

(void  FAR*  FAR*)  &  debug, 

&  vSize) 

:  FALSE; 

} 

//. - 

TAboutVersDlg  ::  TAboutVersDlg  (TWindow  *parent,  TResId  resid,  TModule  *module) 
:  TDialog  (parent,  resid,  module) 

{ 

//  INSER'I»  Your  constructor  code  here. 

} 


TAboutVersDlg::~TAboutVersDlg  () 

{ 

Destroy  (); 

//  INSERT»  Your  destructor  code  here. 

} 


void  TAboutVersDlg::Setup  Window  Q 


{ 

LPSTR  prodName,  prodVersion,  authName,  copyright,  debug; 

//  Get  the  static  text  who's  value  is  based  on  VERSIONINFO. 

TStatic  *versionCtrl  =  new  TStatic  (this,  IDC  VERSION,  255); 

TStatic  *copyrightCtrl  =  new  TStatic  (this,  IDC  COPYRIGHT,  255); 

TStatic  *debugCtrl  =  new  TStatic  (this,  IDC  DEBUG,  255); 

TStatic  *authorCtrl  =  new  TStatic  (this,  IDC  AUTHOR,  255); 

TDialog Setup Window(); 

//  Process  the  VERSIONINFO. 

ProjectRCVersion  psVers  ( GetModule()  ); 

//  Get  the  product  name,  product  version,  author  name  and  legal  copyright  strings. 
psVers.GetProductName  (prodName); 
psVers.GetProductVersion  (prodVersion); 
psVers.GetAuthorName  (authName); 
psVers.GetCopyright  (copyright); 

//  IDC  VERSION  is  the  product  name  and  version  number,  the  initial  value  of  IDC_VERSION 
//  the  word  Version  (in  whatever  language)  product  name  VERSION  product  version, 
char  bufFer[255]; 
char  versionName[128]; 

versionCtrl  ->  GetText  (versionName,  sizeof(versionName)); 
wsprintf  (buffer,  "%s  %s  %s",  prodName,  versionName,  prodVersion); 
versionCtrl  ->  SetText  (buffer); 

authorCtrl  ->  SetText  (authName); 
copyrightCtrl  ->  SetText  (copyright); 

//  Only  get  the  SpecialBuild  text  if  the  VERSIONINFO  resource  is  there, 
if  (psVers.GetDebug  (debug)) 
debugCtrl  ->  SetText  (debug); 

} 

/***  PS_DLGS1.H***/ 

#if !  defined  C_PS_DLGS1_H) 

#define  _PS_DLGS1_H 

//  #include  "ps  axis.h" 

class  OWLCLASS  TDialog; 
class  OWLCLASS  TComboBox; 
class  OWLCLASS  TGroupBox; 
class  OWLCLASS  TEdit; 
class  OWLCLASS  TStatic; 
class  OWLCLASS  TComboBoxData; 

#include  "ps  regn.h" 

#include  "psdlgOl.rh"  //  Definition  of  dialogs  resources. 

#include  "ps  idres.rh"  //  Definition  of  dialogs  resources. 


struct  TRegionBndsTrsl 

{ 

TRegionBndsTrsl  ( ); 

TRegionBndsTrsl  ( const  TGeomAxis  *  xl,  const  TGeomAxis  *  x2  ); 
TRegionBndsTrsl  ( TRegionBndsTrsl  &  src  ); 
void  DefaultFill  ( ); 

void  GetRegionBndsData  ( const  TGeomAxis  *  xl,  const  TGeomAxis  *  x2 ); 
void  SetRegionBndsData  (  TGeomAxis  &  xl,  TGeomAxis  &  x2  ); 

BOOL  svXY; 

BOOL  svRZ; 

BOOL  svRTh; 

BOOL  svxlx2; 

char  svxlminprmpt  [MXSTAT]; 
char  svxlmaxprmpt  [MXSTAT]; 
char  svx2minprmpt  [MXSTAT]; 
char  svx2maxprmpt  [MXSTAT]; 
char  svxlmin  [MXEDIT]; 
char  svxlmax  [MXEDIT]; 
char  svx2min  [MXEDIT]; 
char  svx2max  [MXEDIT]; 

TComboBoxData  svxlminbnd; 

TComboBoxData  svxlmaxbnd; 

TComboBoxData  svx2minbnd; 

TComboBoxData  svx2maxbnd; 
char  svNxlprmpt  [MXSTAT]; 
char  svNx2prmpt  [MXSTAT]; 
char  svNxl  [MXINT]; 
char  svNx2  [MXINT]; 
char  svxlunitsprmpt  [MXSTAT]; 
char  svx2unitsprmpt  [MXSTAT]; 

TComboBoxData  svxl  units; 

TComboBoxData  svx2unlts; 

}; 


class  TRegionBndsDlg  :  public  TDialog 

{ 

public: 

TRegionBndsDlg  (TWindow  *  parent, 
TRegionBndsTrsl  &  ds, 
TRectangleRgn  *  rgn  =  0, 

TResId  resid  =  iddBoundsl, 

TModule  *  module  =  0); 

virtual  -TRegionBndsDlg  (); 

virtual  void  SetupWindow  (); 
void  CmRestore  (); 
void  CmReset  (); 

virtual  void  Close  Window  (int  retVal  =  0); 
virtual  void  EvSysCommand  (UINT  id,  TPoint&  pt); 
virtual  void  EvDestroy  (); 
virtual  BOOL  CanClose  (); 
int  errret; 


private: 

void  FillBoundsCb  (TComboBox  *  cb,  WORD  mask,  int  sel); 
const  char*  BoundaryStr  (TBoundaryType  ind); 
void  UpdatePrompts  (); 

BOOL  IsValid  (char  *  errmsg); 
void  ChangeGeometry  (int  gfw); 
void  EvCBNxlnKillfocus  (); 
void  EvCBNxlxKillfocus  (); 
void  EvCBNx2nKillfocus  (); 
void  EvCBNx2xKillfocus  0; 
void  EvBNClickedl  (); 
void  EvBNClicked2  (); 
void  EvBNClickedS  (); 
void  EvBNClicked4  (); 
protected: 

TGroupBox  *ivGeom; 

TStatic  *ivxlminprmpt; 

TStatic  *ivxlmaxprmpt; 

TStatic  *ivx2minprmpt; 

TStatic  *ivx2maxpnnpt; 

TEdit  *ivxlmin; 

TEdit  *ivxlmax; 

TEdit  *ivx2min; 

TEdit  *ivx2max; 

TComboBox  *ivxlminbnd; 

TComboBox  *ivxlmaxbnd; 

TComboBox  *ivx2minbnd; 

TComboBox  ♦ivx2maxbnd; 

TStatic  *ivNxlprmpt; 

TStatic  *ivNx2prmpt; 

TEdit  *ivNxl; 

TEdit  *ivNx2; 

TStatic  *ivxlunitsprmpt; 

TStatic  *ivx2unitsprmpt; 

TComboBox  *ivxlunits; 

TComboBox  *ivx2units; 

private: 

TRegionBndsTrsl  *  rbtData; 

TRegionBndsTrsl  *  iniData; 

int  Geom; 

TRectangleRgn  *  Region; 

DECLARE_RESPONSE_TABLE  (  TRegionBndsDlg  ); 

}; 

II. - 

#defme  MXINFl  12 
#defmeMXINF2  25 

const  int  WM_DLG_CLOSED  =  WM_USER  +  200; 

struct  TlnfoTrsl 

{ 

charsviOl  [MXINFl]; 
char  svi02  [MXINFl]; 
charsviOS  [MXINFl]; 


char  svi04  [MXINFl]; 
char  svi05  [MXINFl]; 
char  svi06  [MXINFl]; 
char  svi07  [MXINFl]; 
charsvill  [MXINF2]; 
char  svil2  [MXINF2]; 
charsvilS  [MXINF2]; 
char  svil4  [MXINF2]; 
char  svil5  [MXINF2]; 
char  svil6  [MXINF2]; 
char  svil7  [MXINF2]; 
}; 


class  TlnfoDlgl  :  public  TDialog 

{ 

public: 

TlnfoDlgl  (TWindow  *  parent, 
TlnfoTrsl  &  ds, 

TResId  resid  =iddlnfo01); 
void  EvDestroyO; 

DECLARE_RESPONSE_TABLE  ( TlnfoDlgl  ); 

}; 

#endif 

!***  PS_DLG1.CPP  ***/ 

#if  defined  (_SPRT_SERVICE_PCH) 
IIIIIIIIIIIIIIIIIIIIIIIIUIIIIIIIIIIII 
#pragma  hdrfile  "d:\picsim\obj\_service.csm" 
#include  <owl\dialog.h> 

#include  <stdlib.h> 

#include  <stdio.h> 

#include  <bwcc.h> 

#include  <owl\combobox.h> 

#include  <owl\edit.h> 

#include  <owl\groupbox.h> 

#include  <owl\radiobut.h> 

#include  <owl\edit.h> 

#include  <owl\validate.h> 

#include  <owl\applicat.h> 

#pragma  hdrstop 

#else 

lllllllllllllllllllllllllllllllllllll 

#pragma  hdrfile  "f:\picsim\obj\_allpch.csm" 
#define_ALLPCH 
#include  <_allpch.h> 

#pragma  hdrstop 

#endif 

lllllllllllllllllllllllllllllllllllll 


#include  "ps  dlgl.h' 


#mclude  "ps  strOl.rh' 


y/!|C**!|ll|ll|t**!|Cl(t*******  +  +  l|Cl|l!|t****l|ll|C  +  l|(**l|l****l|ll(>»»**i|"*  +  ***>l‘***********  +  ***!|<>l>* 

class  TNumValidator  :  public  TFilterValidator 

{ 

public: 

TNumValidator  (num  amin,  num  amax); 
virtual  void  Error  Oi 
virtual  BOOL  IsValid  (const  char  far  *  str); 

//  virtual  UINT  Transfer  (char  far  *  str,  void  *  buf,  TTransDirection  drctn); 
protected: 

num  Amin; 
num  Amax; 

}; 

//. - 

TNumValidator  ::  TNumValidator  (num  amin,  num  amax) 

:  TFilterValidator  ("-+0123456789eE.") 

{ 

Amin  =  amin;  Amax  =  amax; 

}; 

//. - 

BOOL  TNumValidator  ::  IsValid  (const  char  far  *  str) 

{ 

char  **  erp; 

num  res  =  Amin- 1.0; 
if  (strlen(str)==0)  return  TRUE; 
if  (!TFilterValidator::IsValid  (str))  return  FALSE; 
res  =  strtod  ( str,  erp ); 

return  (erp  ==  NULL)  &&  (res  >=  Amin)  &&  (res  <=  Amax); 

}; 

n - 

void  TNumValidator  ::  Error  () 

{ 

char  buff  [56]; 

sprintf  (buff,  "%s  %g  to  %g","Number  Must  Be  In  Diapazon",  Amin,  Amax); 

MessageBox  (0,  buff,"Bad  Floating  Point  Number",  MB  OK  |  MB  ICONEXCLAMATION); 

}; 

sjcidc  9ic  :|c  ^  9|e  9)C  9|C « :|( « t  :|c  3fc  « t(c  )fe  4:  **  t  ******  >|(  **>)(************  )te  *  t  *  * 

H - 

void  TRegionBndsTrsl  ::  DefaultFill  () 

{ 

num  X  =  0.0; 

svXY  =  FALSE; 
svRZ  =  FALSE; 
svRTh  =  FALSE; 
svxlx2  =  TRUE; 

strcpy  (  svxlminprmpt,  "XI  min"  ); 
strcpy  ( svxlmaxprmpt,  "XI  max" ); 
strcpy  ( svx2mmprmpt,  "X2  min"  ); 
strcpy  (  svx2maxprmpt,  "X2  max"  ); 
sprintf  ( svxlmin,  "%g",  x  ); 
sprintf  (  svxlmax,  "%g",  x  ); 
sprintf  (  svx2min,  "%g",  x  ); 
sprintf  (  svx2max,  "%g",  x  ); 


strcpy  (  svNxlprmpt,  "Nxl"  ); 
strcpy  (  svNx2prmpt,  "Nx2"  ); 
svNxl  [0]  =0; 

svNx2  [0]  =  0; 

strcpy  (  svxlunitsprmpt,  "XI  units"  ); 
strcpy  ( svx2unitsprmpt,  "X2  units"  ); 


svxlminbnd.AddStringItem  ("Conducting",  ConductingBnd); 
svxlminbnd.AddStringItem  ("Open",  OpenBnd); 
svxlminbnd.AddStringItem  ("Axisymmetric",  AxisymmetricBnd); 
svxlminbnd.AddStringIteni  ("Periodic",  PeriodicBnd); 
svxlminbnd.AddStringItem  ("Dielectric",  DielectricBnd); 

svx  1  minbnd. Select  (ConductingBnd); 
svxlmaxbnd.AddStringltem  ("Conducting",  ConductingBnd); 
svxlmaxbnd.AddStringltem  ("Open",  OpenBnd); 
svxlmaxbnd.AddStringItem  ("Axisymmetric",  AxisymmetricBnd); 
svxlmaxbnd.AddStringltem  ("Periodic",  PeriodicBnd); 
svxlmaxbnd.AddStringltem  ("Dielectric",  DielectricBnd); 

svxlmaxbnd.Select  (ConductingBnd); 
svx2minbnd.AddStringItem  ("Conducting",  ConductingBnd); 
svx2minbnd.AddStringItem  ("Open",  OpenBnd); 
svx2minbnd.AddStringItem  ("Axisymmetric",  AxisymmetricBnd); 
svx2minbnd.AddStringItem  ("Periodic",  PeriodicBnd); 
svx2minbnd.AddStringItem  ("Dielectric",  DielectricBnd); 

svx2minbnd.Select  (ConductingBnd); 
svx2maxbnd.AddStringItem  ("Conducting",  ConductingBnd); 
svx2maxbnd.AddStringItem  ("Open",  OpenBnd); 
svx2maxbnd.AddStringItem  ("Axisymmetric",  AxisymmetricBnd); 
svx2maxbnd.AddStringItem  ("Periodic",  PeriodicBnd); 
svx2maxbnd.AddStringItem  ("Dielectric",  DielectricBnd); 

svx2maxbnd.  Select  (ConductingBnd); 
svxlunits.AddStringC'arbitr"); 
svxlunits.AddStringC'm "); 
svxlunits.AddStringC'cm"); 
svxlunits.AddString("mm"); 
svxlunits.AddStringC'inchs"); 

svxlunits.Select  (2); 
svx2units.AddString("arbitr"); 
svx2units.AddString("m "); 
svx2units.AddString("cm"); 
svx2units.AddString("mm"); 
svx2units.AddString("inchs"); 
svx2units.AddString("radians"); 
svx2units.AddString("degrees"); 

svx2units.  Select  (2); 


}; 

//- 


TRegionBndsTrsl  ::  TRegionBndsTrsl  () 

{ 

DefaultFill  (); 

}; 

n. - 


TRegionBndsTrsl  ::  TRegionBndsTrsl  (TRegionBndsTrsl  &  src) 

{ 


//  memcpy  ( this,  *(&src),  sizeof  TRegionBndsTrsl  ); 

DefaultFill  (); 

svXY  =src.svXY; 
svRZ  =src.svRZ; 
svRTh  =  src.svRTh; 
svxlx2  =  src.svxlx2; 

strcpy  ( svxlminprmpt,  src.svxlminprmpt ); 

strcpy  (  svxlmaxprmpt,  src.svxlmaxprmpt ); 

strcpy  ( svx2minprmpt,  src.svx2minpmipt ); 

strcpy  (  svx2maxprmpt,  src.svx2maxprmpt ); 

strcpy  ( svxlmin,  src.svxlmin  ); 

strcpy  ( svxlmax,  src.svxlmax  ); 

strcpy  ( svx2min,  src.svx2mm ); 

strcpy  ( svx2max,  src.svx2max ); 

strcpy  ( svNxlprmpt,  src.svNxlprmpt ); 

strcpy  (  svNx2prmpt,  src.svNx2prmpt ); 

strcpy  (  svNxl,  src.svNxl ); 

strcpy  (  svNx2,  src.svNx2  ); 

strcpy  (  svxlunitsprmpt,  src.svxlunitsprmpt ); 

strcpy  ( svx2unitsprmpt,  src.svx2unitsprmpt ); 

svx  1  minbnd.  Select  (src.svx  1  minbnd.GetSellndexO); 
svx  1  maxbnd.  Select  (src.svx  1  maxbnd.GetSelIndex()); 
svx2minbnd.Select  (src.svx2minbnd.GetSelIndexO); 
svx2maxbnd.Select  (src.svx2maxbnd.GetSelIndexO); 
svxlunits.Select  (src.svxlunits.GetSellndexO); 
svx2units.Select  (src.svx2units.GetSelIndexO); 

}; 

n - 


TRegionBndsTrsl  ::  TRegionBndsTrsl  (const  TGeomAxis  ♦  xl, 
const  TGeomAxis  *  x2) 

{ 


GetRegionBndsData(xl,  x2); 


}; 

//- 


void  TRegionBndsTrsl  GetRegionBndsData  (const  TGeomAxis  *  xl, 
const  TGeomAxis  *  x2) 

{ 

int  rx  =  10; 

DefaultFill  (); 
if  ((xl)&&(x2)) 

{ 

wsprintf  (  svxlminprmpt,  "%s  min",  (xl->name)  ); 
wsprintf  (  svxlmaxprmpt,  "%s  max",  (xl->name)  ); 
wsprmtf  ( svx2minprmpt,  "%s  min",  (x2->name) ); 
wsprintf  (  svx2maxprmpt,  "%s  max",  (x2->name)  ); 
sprintf  (  svxlmin,  "%g",  (xl->org) ); 
sprintf  (  svxlmax,  "%g",  (xl->end) ); 
sprintf  ( svx2min,  "%g",  (x2->org) ); 
sprintf  (  svx2max,  "%g",  (x2->end) ); 
wsprintf  ( svNxlprmpt,  "N  %s",  (xl->name)  ); 
wsprintf  ( svNx2prmpt,  "N  %s",  (x2->name) ); 
itoa  ((xl->N),  svNxl,  rx); 
itoa  ((x2->N),  svNx2,  rx); 
svXY  =  svRZ  =  svRTh  =  svxlx2  =  FALSE; 


if  ((xl->id  ==  0)&&(x2->id  =  1))  svXY  =  TRUE; 
if  ((xl->id  ==  2)&&(x2->id  ==  3))  svRZ  =  TRUE; 
if  ((xl->id  ==  2)&&(x2->id  ==  4))  svRTh  =  TRUE; 
if  ((xl->id  ==  5)&&(x2->id  ==  6))  svxlx2  =  TRUE; 
svxlminbnd.Select  (xl->boundl); 
svxlmaxbnd.  Select  (xl->bound2); 
svx2mmbnd.  Select  (x2->boundl); 
svx2maxbnd.Select  (x2->bound2); 
if  (xl->uid  >  0)  svxlunits.Select  (xl->uid); 
if  (x2->uid  >  0)  svx2units.Select  (x2->uid); 

}; 

}; 


void  TRegionBndsTrsl  ::  SetRegionBndsData  (TGeomAxis  &  xl,  TGeomAxis  &  x2) 

{ 

string  str; 
char  *  erp; 
double  resl,res2; 

if  (svXY)  {  xl.id  =  0;  x2.id  =  1;  strcpy  (xl.name,  "X");  strcpy  (x2.name,  "Y"); }; 
if  (svRZ)  {  xl.id  =  2;  x2.id  =  3;  strcpy  (xl.name,  "R");  strcpy  (x2.name,  "Z"); }; 
if  (svRTh)  {  xl.id  =  2;  x2.id  =  4;  strcpy  (xl.name,  "R");  strcpy  (x2.name,  "Th");  }; 
if  (svxlx2){  xl.id  =  5;  x2.id  =  6;  strcpy  (xl.name,  "XI");  strcpy  (x2.name,  "X2"); }; 
xl.org  =  (num)  strtod  (svxlmin,  &erp ); 
x2.org  =  (num)  strtod  (svx2min,  &erp ); 
xl.end  =  (num)  strtod  (svxlmax,  &erp ); 
x2.end  =  (num)  strtod  (svx2max,  &erp ); 
xl.N  =  atoi  ( svNxl ); 
x2.N  =  atoi  ( svNx2  ); 
xl.boundl  =  svxlminbnd.GetSellndexO; 
x2.boundl  =  svx2minbnd.GetSelIndex(); 
xl.bound2  =  svxlmaxbnd.GetSelIndex(); 
x2.bound2  =  svx2maxbnd.GetSelIndex(); 
str  =  svxlunits.GetSelection  0;  strcpy  (xl.units,  str.c  strO); 
str  =  svx2units.GetSelection  0;  strcpy  (x2.units,  str.c_str()); 
xl.uid  =  svxlunits.GetSellndexO; 
x2.uid  =  svx2units.GetSelIndex(); 

}; 

n - 

i)c  1 1 *  *  *  *  *  if  *  3ft  ♦  4:  *  *  *  if  *  )|(  *  3|(  4c  :|c  Xc  Xc  )|t  *  *  *  *  *  *  *  *  *  *  ifc  *  *  *  *  9^  *  9|( 

//. - 

//  int  errret; 

#defme  cms  Restore  201 
#definecms  Reset  202 


DEFINE_RESPONSE_TABLEl  (TRegionBndsDlg,  TDialog) 
EV_BN_CLICKED  (idc_XY,  EvBNClickedl), 

EV_BN_CLICKED  (ldc_RZ,  EvBNClicked2), 

EV_BN_CLICKED  (idc_RTh,  EvBNClicked3), 

EV_BN_CLICKED  (idc_xlx2,  EvBNCllcked4), 

EV_CBN_KlLLFOCUS  (idc_xlmin_bnd,  EvCBNxlnKillfocus), 
EV_CBN_KlLLFOCUS  (idc_xlmax_bnd,  EvCBNxlxKillfocus), 
EV  CBN  KILLFOCUS  (idc_x2min_bnd,  EvCBNx2nKillfocus), 
EV_CBN_KILLFOCUS  (idc_x2max_bnd,  EvCBNx2xKillfocus), 


EV_WM_DESTROY, 

EV_WM_SYSCOMMAND, 

EVCOMMAND  (cmsRestore,  CmRestore), 
EVCOMMAND  (cmsReset,  CmReset), 
END_RESPONSE_TABLE; 


TRegionBndsDlg  ::  TRegionBndsDlg  (TWindow  *  parent, 
TRegionBndsTrsl  &  ds, 

TRectangleRgn  *  rgn, 

TResId  resid, 

TModule  *  module) 

:  TDialog  (parent,  resid,  module),  iniData  (0),  rbtData  (0) 

{ 


ivGeom  =  new  TGroupBox  (this,  idc^geom); 

new  TRadioButton  (this,  idc  XY,  ivGeom); 
new  TRadioButton  (this,  idc  RZ,  ivGeom); 
new  TRadioButton  (this,  idc  RTh,  ivGeom); 
new  TRadioButton  (this,  idc_xlx2,  ivGeom); 
ivxlminprmpt  =  new  TStatic  (this,  idc_xlmin_prompt,  MXSTAT); 
ivxlmaxprmpt  =  new  TStatic  (this,  idc_xlmax_prompt,  MXSTAT); 
ivx2minprmpt  =  new  TStatic  (this,  idc_x2min_prompt,  MXSTAT); 
ivx2maxprmpt  =  new  TStatic  (this,  idc_x2max_prompt,  MXSTAT); 
ivxlminprmpt  ->  EnableTransfer  (); 
ivxlmaxprmpt  ->  EnableTransfer  (); 
ivx2minprmpt  ->  EnableTransfer  (); 
ivx2maxprmpt  ->  EnableTransfer  (); 
ivxlmin  =  new  TEdit  (this,  idc_xlmin,  MXEDIT); 
ivxlmax  =  new  TEdit  (this,  idc_xlmax,  MXEDIT); 
ivx2min  =  new  TEdit  (this,  idc_x2min,  MXEDIT); 
ivx2max  =  new  TEdit  (this,  idc_x2max,  MXEDIT); 
ivxlminbnd  =  new  TComboBox  (this,  idc  xlmin  bnd,  MXCOMBO); 
ivxlmaxbnd  =  new  TComboBox  (this,  idc_xlmax_bnd,  MXCOMBO); 
ivx2minbnd  =  new  TComboBox  (this,  idc_x2min_bnd,  MXCOMBO); 
ivx2maxbnd  =  new  TComboBox  (this,  idc_x2max_bnd,  MXCOMBO); 
ivNxlprmpt  =  new  TStatic  (this,  idc_Nxl_prompt,  MXSTAT); 
ivNx2prmpt  =  new  TStatic  (this,  idc_Nx2_prompt,  MXSTAT); 
ivNxlprmpt  ->  EnableTransfer  (); 
ivNx2prmpt  ->  EnableTransfer  0; 
ivNxl  =  new  TEdit  (this,  idc  Nxl,  MXINT); 
ivNx2  =  new  TEdit  (this,  idc_Nx2,  MXINT); 
ivxlunitsprmpt  =  new  TStatic  (this,  idc_xlunits_prompt,  MXSTAT); 
ivx2unitsprmpt  =  new  TStatic  (this,  idc_x2units_prompt,  MXSTAT); 
ivxlunitsprmpt  ->  EnableTransfer  (); 
ivx2unitsprmpt  ->  EnableTransfer  Q; 
ivxlunits  =  new  TComboBox  (this,  idc_xlunits,  MXCOMBO); 
ivx2units  =  new  TComboBox  (this,  idc_x2units,  MXCOMBO); 

//  ivxlmin  ->  SetValidator  (new  TNumValidator  (-1000.0,  1000)); 

ivxlmin  ->  SetValidator  (new  TFilterValidator  ("-+.0123456789eE")); 
ivx2max  ->  SetValidator  (new  TFilterValidator  ("-+.0123456789eE")); 
ivNxl  ->  SetValidator  (new  TRangeValidator  (  3,  128)); 
ivNx2  ->  SetValidator  (new  TRangeValidator  (  3,  128)); 


if  (  rgn ) 

{  if((rgn->X20)->id==2) 


rbtData  =  new  TRegionBndsTrsl  (  rgn->X20,  rgn->Xl()  ); 
else 

rbtData  =  new  TRegionBndsTrsl  (  rgn->X10,  rgn->X2()  ); 

} 

else 

rbtData  =  new  TRegionBndsTrsl  ( ds ); 
iniData  =  &ds; 

Geom  =  (rgn  ?  1  :  4); 
if  (rbtData->svXY)  Geom  =  1; 
if  (rbtData->svRZ)  Geom  =  2; 
if  (rbtData->svRTh)  Geom  =  3; 
if  (rbtData->svxlx2)  Geom  =  4; 

SetTransferBuffer  (  rbtData  ); 

errret  =  IDOK; 

//  SetBkgndColor  (  COLOR_APPWORKSPACE  ); 

//  SetBkgndColor  (  RGB  (  0,  127,  127) ); 

} 

H. - 

TRegionBndsDlg -TRegionBndsDlg  () 

{ 

//  Destroy  (errret); 
if  (rbtData)  delete  rbtData; 

else  MessageBeep  (-1); 

//  if  (iniData)  delete  iniData; 

//». 

//  GetApplicationO  ->  EnableCtlSd  (FALSE); 

} 

H - 

void  TRegionBndsDlg:  :SetupWindow  () 

{ 

HMENU  hSysMnu; 

TDialog;:  Setup  Window  0; 
hSysMnu  =  GetSystemMenu  ( ); 

AppendMenu  (hSysMnu,  MF  SEPARATOR,  0,  NULL); 

AppendMenu  (hSysMnu,  MF  STRING,  cms  Restore,  "Restore  &Initial"); 
AppendMenu  (hSysMnu,  MF  STRING,  cms  Reset,  "Reset  &Default"); 
//  GetApplicationO  ->  EnableCtl3d  (TRUE); 

}; 

H- - 

void  TRegionBndsDlg  ::  UpdatePrompts  0 

{ 

TransferData  (tdSetData); 

}; 

n. - 

BOOL  TRegionBndsDlg  ::  IsValid  (char  *  errmsg) 

{ 

char  *  erp; 
double  resl,res2; 
long  les; 

strcpy  (errmsg,  "okay"); 

erp  =  0;  resl  =  strtod  (  rbtData->svxlmin,  &erp  ); 
if  (*erp)  {  strcpy  (errmsg, "Bad  xlmin.");  return  FALSE;  } 
if  (((Geom=2)||(Geom==3))&&(resl  <  0.0)) 

{  strcpy  (errmsg, "Radius  must  be  positive.");  return  FALSE;  } 


erp  =  0;  res2  =  strtod  ( rbtData->svxlmax,  &erp ); 
if  (*erp)  {  strcpy  (errmsg,"Bad  xlmax.");  return  FALSE;  } 
if  (resl  >=  res2)  {  strcpy  (errtnsg/'xlmin  >=  xlmax.");  return  FALSE;  } 
erp  =  0;  resl  =  strtod  (  rbtData->svx2min,  &erp  ); 
if  (*erp)  {  strcpy  (errmsg,"Bad  x2min.");  return  FALSE;  } 
erp  =  0;  res2  =  strtod  ( rbtData->svx2max,  &erp  ); 
if  (*erp)  {  strcpy  (ernnsg,"Bad  x2max.");  return  FALSE; } 
if  (resl  >=  res2)  {  strcpy  (errmsg,"x2min  >=  x2max.");  return  FALSE;  } 
if  (((Geom==2)|  |  (Geom=3))&&(rbtData->svx  1  minbnd.GetSelIndex()==(int)PeriodicBnd)) 
{ strcpy  (errmsg,"Missmatch  boundary  (Periodic)  for  radii.");  return  FALSE; } 
if  ((Geom==  1  )&&(rbtData->svx  1  minbnd.GetSelIndexO=(int)AxisymmetricBnd)) 

{  strcpy  (errmsg,"Missmatch  boundary  for  Xmin.");  return  FALSE;  } 
if  (rbtData->svx  1  maxbnd.GetSelIndex()==(int)AxisymmetricBnd) 

{  strcpy  (errmsg/'Missmatch  outer  boundary  (Axisymmetric).");  return  FALSE; } 
if  (rbtData->svx2minbnd.GetSelIndex()==(int)AxisymmetricBnd) 

{  strcpy  (errmsg,"Missmatch  boundary  (not  Radial).");  return  FALSE;  } 
if  (rbtData->svx2maxbnd.GetSelIndex()==(int)AxisymmetricBnd) 

{  strcpy  (errmsg,"Missmatch  boundary  (Axisymmetric  not  Radial).");  return  FALSE; } 
if  (((rbtData->svx  1  minbnd.GetSelIndex()==(int)PeriodicBnd)&& 

(rbtData->svx  1  maxbnd.GetSellndex() ! =(int)PeriodicBnd))|  | 
((rbtData->svxlminbnd.GetSelIndex()!=(int)PeriodicBnd)&& 

(rbtData->svx  1  maxbnd.GetSelIndex()=(int)PeriodicBnd))) 

{  strcpy  (errmsg,"Missmatch  Periodic  boundaries  for  XL");  return  FALSE; } 
if  (((rbtData->svx2minbnd.GetSelIndex()==(int)PeriodicBnd)&& 
(rbtData->svx2maxbnd.GetSelIndex()!=(int)PeriodicBnd))l| 
((rbtData->svx2minbnd.GetSelIndexO !  =(int)PeriodicBnd)&& 
(rbtData->svx2maxbnd.GetSelIndexO==(int)PeriodicBnd))) 

{  strcpy  (errmsg,"Missmatch  Periodic  boundaries  for  X2.");  return  FALSE; } 
if  (((rbtData->svx2units.GetSelIndex()==5)|| 

(rbtData->svx2units.GetSelIndexO==6))&& 

(Geom  !=  3)) 

{  strcpy  (errmsg,"Missmatch  Units  for  X2  (not  Angle).");  return  FALSE; } 
erp  =  0;  les  =  strtol  (  rbtData->svNxl,  &erp,  10  ); 
if  (*erp)  {  strcpy  (errmsg,"Bad  Nxl.");  return  FALSE;  } 
if((les<3)||(les>512)) 

{  strcpy  (errmsg,"Nxl  must  be  in  range  3  -  512.");  return  FALSE; } 
erp  =  0;  les  =  strtol  ( rbtData->svNx2,  &erp,  10  ); 
if  (*erp)  {  strcpy  (errmsg,"Bad  Nx2.");  return  FALSE; } 
if((les<3)||(les>512)) 

{  strcpy  (errmsg,"Nx2  must  be  in  range  3  -  512.");  return  FALSE; } 
return  TRUE; 

}; 

II. - 

BOOL  TRegionBndsDlg  CanClose  () 

{ 

char  ErrorMessage  [80]; 

TransferData  (tdGetData);  errret  =  IDOK; 

if  (llsValid  (ErrorMessage)) 

{  strcat  (ErrorMessage,  "\n  Return  for  Edit  ?"); 

MessageBeep(-l ); 

SetDefaultId  (idc_x2min); 

if  (BWCCMessageBox  (HWindow,  ErrorMessage, "Errors", 

MB  ICONEXCLAMATION  |  MB_YESNO)  =  IDYES) 

{  errret  =  IDOK;  return  FALSE;  } 


else  {  errret  =  IDCANCEL;  return  TRUE;  } 

}; 

if  ( "MessageBox  (0, "Transfer  Data  ?","PICSIM", 

MBJCONQUESTION  1  MB_YESNO  )  ==  IDYES) 

{ 

Transfer  (iniData,  tdGetData); 
errret  =  IDOK; 
return  TRUE; 

} 

else  return  FALSE; 

}; 

//. - 

void  TRegionBndsDlg  ::  CloseWindow  (int  retVal) 

{ 

if  (errret  !=  IDOK)  TDialog::CloseWindow  (errret); 
else  TDialog::CloseWindow  (retVal); 

ll». 

} 

H. - 

void  TRegionBndsDlg  ::  EvDestroy  Q 

{ 

//». 

TDialog;:EvDestroy  (); 

} 

//. - 

void  TRegionBndsDlg:  lEvSysCommand  (UINT  id,  TPoint&  pt) 

{ 

switch  (id) 

{  case  cnis_Reset:  CmReset  ();  break; 
case  cms_Restore:  CmRestore  0;  break; 

default:  TDialog::EvSysCommand  (id,  pt); 

} 

}; 

//. - 

void  TRegionBndsDlg:  :CmReset  ()  //  default 

{ 

delete  rbtData; 

rbtData  =  new  TRegionBndsTrsl  (); 

SetTransferBuffer  ( rbtData ); 

TransferData  (tdSetData); 

MessageBeep  (-1); 

}; 

n. - 

void  TRegionBndsDlg:  :CmRestore  ()  //  initial 

{ 

delete  rbtData; 

rbtData  =  new  TRegionBndsTrsl  (* iniData); 
SetTransferBuffer  ( rbtData ); 

TransferData  (tdSetData); 

if  (Transfer  (rbtData,  tdSetData)  <  10)  MessageBeep  (-1); 

}; 

//. - 

void  TRegionBndsDlg  ::  EvCBNxlnKillfocus  0 

{ 


int  ind  =  ivxlminbnd  ->  GetSelIndex  Q; 

if  (ind  ==  PeriodicBnd)  ivxlmaxbnd  ->  SetSelIndex  (PeriodicBnd); 

}; 

//- . 

void  TRegionBndsDlg  EvCBNxlxKillfocus  0 

{ 

int  ind  =  ivxlmaxbnd  ->  GetSelIndex  (); 

if  (ind  ==  PeriodicBnd)  ivxlminbnd  ->  SetSelIndex  (PeriodicBnd); 

}; 

//- . 

void  TRegionBndsDlg  EvCBNx2nKillfocus  0 

{ 

int  ind  =  ivx2minbnd  ->  GetSelIndex  (); 

if  (ind  ==  PeriodicBnd)  ivx2maxbnd  ->  SetSelIndex  (PeriodicBnd); 

}; 

//- . 

void  TRegionBndsDlg  ::  EvCBNx2xKillfocus  () 

{ 

int  ind  =  ivx2maxbnd  ->  GetSelIndex  (); 

if  (ind  ==  PeriodicBnd)  ivx2minbnd  ->  SetSelIndex  (PeriodicBnd); 


}; 

H- . 

void  TRegionBndsDlg  ::  EvBNClickedl  () 

{ 

if  (Geom  !=  1) 

{ 

if  (BWCCMessageBox  (0,"Set  Cartesian  Coordinate  System.\n  Are  You  Sure?", 
"Change  Geometry", 

MBJCONQUESTION  |  MB_YESNO  )  =  IDYES) 

Geom  =  1; 

ChangeGeometry  ( Geom  ); 

} 

}; 

H- . 

void  TRegionBndsDlg  EvBNClicked2  0 

{ 

if  (Geom  !=  2) 

{ 

if  (::MessageBox  (0,"Set  Cylindric  Coordinate  System.Vn  Are  You  Sure?", 
"Change  Geometry", 

MBJCONQUESTION  |  MB_YESNO  )  =  IDYES) 

Geom  =  2; 

ChangeGeometry  ( Geom  ); 

} 

}; 

H- . 

void  TRegionBndsDlg  ::  EvBNClickedS  Q 

{ 

if  (Geom  !=  3) 

{ 

if  (MessageBox  ("Set  Polar  Coordinate  System.Vn  Are  You  Sure?", 

"Change  Geometry", 

MBJCONQUESTION  |  MB_YESNO  )  =  IDYES) 


Geom  =  3; 

ChangeGeometry  ( Geom  ); 

} 

}; 

n- . 

void  TRegionBndsDlg  ::  EvBNClicked4  () 

{ 

if  (Geom  !=  4) 

{ 

if  ("MessageBox  (0,"Set  General  Orthogonal  Coordinate  System.\n  Are  You  Sure?", 
"Change  Geometry", 

MBJCONQUESTION  |  MB  YESNO  )  =  IDYES) 

Geom  =  4; 

ChangeGeometry  (  Geom  ); 

} 

}; 

//. - 

void  TRegionBndsDlg  ::  ChangeGeometry  (int  gfw) 

{ 

TransferData  (tdGetData); 
switch  (gfw) 

{ 

case  1: 

{  strcpy(rbtData->svxlminprmpt,  "Xmin"); 
strcpy  ( rbtData->svxlmaxprmpt,  "X  max" ); 
strcpy  ( rbtData->svNxlprmpt,  "Nx" ); 
strcpy  ( rbtData->svxlunitsprmpt,  "X  units" ); 
break; 

} 

case  2: 
case  3: 

{  strcpy  ( rbtData->svxlminprmpt,  "R  min"  ); 
strcpy  (  rbtData->svxlmaxprmpt,  "R  max"  ); 
strcpy  (  rbtData->svNx  1  prmpt,  "Nr"  ); 
strcpy  (  rbtData->svxlunitsprmpt,  "R  units"  ); 
break; 

} 

case  4: 

{  strcpy  ( rbtData->svxlminprmpt,  "XI  min"  ); 
strcpy  (  rbtData->svxlmaxprmpt,  "XI  max"  ); 
strcpy  (  rbtData->svNx  1  prmpt,  "Nx  1 "  ); 
strcpy  (  rbtData->svxlunitsprmpt,  "XI  units"  ); 
break; 

} 

default:  break; 

} 

switch  (gfw) 

{ 

case  1: 

{  strcpy  (  rbtData->svx2minprmpt,  "Y  min"  ); 
strcpy  ( rbtData->svx2maxprmpt,  "Y  max"  ); 
strcpy  (  rbtData->svNx2prmpt,  "Ny"  ); 
strcpy  (  rbtData->svx2unitsprmpt,  "Y  units"  ); 
break; 


} 

case  2: 

{  strcpy  (  rbtData->svx2minpmipt,  "Z  min"  ); 
strcpy  (  rbtData->svx2maxprmpt,  "Z  max"  ); 
strcpy  ( rbtData->svNx2prmpt,  "Nz" ); 
strcpy  (  rbtData->svx2unitsprmpt,  "Z  units"  ); 
break; 

} 

case  3: 

{  strcpy  (  rbtData->svx2minprmpt,  "Th  min"  ); 
strcpy  ( rbtData->svx2maxprmpt,  "Th  max"  ); 
strcpy  ( rbtData->svNx2prmpt,  "Nth"  ); 
strcpy  ( rbtData->svx2unitsprmpt,  "Theta"  ); 

//  rbtData->svx2units.Clear  (); 

//  rbtData->svx2units.AddString  ("radians"); 

//  rbtData->svx2units.AddString  ("degrees"); 

//  rbtData->svx2units.AddString  ("arbitrary"); 

rbtData->svx2units.Select  (5); 

//  ivx2units->DeleteString  (3); 

//  ivx2units->DeleteString  (4); 

//  ivx2units->ClearList  (); 

//  ivx2units->AddString  ("radians"); 

//  ivx2units->AddString  ("degrees"); 

//  ivx2units->SetSelIndex  (0); 

break; 

} 

case  4: 

{  strcpy  ( rbtData->svx2minprmpt,  "X2  min" ); 
strcpy  ( rbtData->svx2maxprmpt,  "X2  max" ); 
strcpy  (  rbtData->svNx2pnnpt,  "Nx2"  ); 
strcpy  (  rbtData->svx2unitsprmpt,  "X2  units"  ); 
break; 

} 

default:  break; 

} 

TransferData  (tdSetData); 

}; 

//- - 

const  char*  TRegionBndsDlg  ::  Boundary Str  (TBoundaryType  ind) 

{ 

return  string  (*GetModule(),  ids_boundaryOO+ind).c_str  0; 

//  return  "No  Bounds"; 

} 

//- . 

void  TRegionBndsDlg  ::  FillBoundsCb  (TComboBox  *  cb,  WORD  mask,  int  sel) 

{ 

TBoundaryType  i; 

for  ( i  =  0;  i  <  NBoundaryTypes;  1++) 
if  (  mask  &&  i )  cb  ->  Insertstring  ( BoundaryStr  (i),  i ); 
cb  ->  SetSelIndex  (  sel ); 

}; 
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DEFINE_RESP0NSE_TABLE1  (TlnfoDlgl.TDialog) 

EV_WM_DESTROY, 


END_RESPONSE_TABLE; 


//■ 


TlnfoDlgl  ::  TlnfoDlgl  (TWindow  *  parent, 
TlnfoTrsl  &  ds, 

TResId  resid ) 

:  TDialog  (parent,  resid,  0) 


{ 

int  MXl  =  sizeof  (ds.sviOl); 
new  TEdit  (this,  idc  infoOl,  MXl); 
new  TEdit  (this,  idc_info03,  MXl); 
new  TEdit  (this,  idc  infoOS,  MXl); 
new  TEdit  (this,  idc_info07,  MXl); 
new  TEdit  (this,  idc_infol2,  MX2); 
new  TEdit  (this,  idc  infoM,  MX2); 
new  TEdit  (this,  idc_infol6,  MX2); 


int  MX2  =  sizeof  (ds.svil  1); 
new  TEdit  (this,  idc_info02,  MXl); 
new  TEdit  (this,  idc_info04,  MXl); 
new  TEdit  (this,  idc_info06,  MXl); 
new  TEdit  (this,  idc  infol  1,  MX2); 
new  TEdit  (this,  idc_infol3,  MX2); 
new  TEdit  (this,  idc  infolS,  MX2); 
new  TEdit  (this,  idc  infol?,  MX2); 


SetTransferBuffer  ( &ds ); 

//  GetApplicationO  ->  EnableCtl3d  (TRUE); 

} 

H - 

void  TlnfoDlgl "EvDestroy  () 

{ 

Parent  ->  PostMessage  (  WM_DLG_CLOSED,  WM_DLG_CLOSED  ); 
TDialog:  :EvDestroy(); 

}; 


4.COMPUTATIONAL  CLASSES 

Due  to  the  fact  that  during  the  project  implementation  on  various  nume¬ 
rical  algorythms  are  used  to  compute  the  same  physical  values  and  also  to 
reach  the  main  target  of  the  project-REUSABILITY-we  attempted  to  separate 
computational  classes  from  base  classes.  Development  of  the  class  hierarchy 
with  inheritance  is  feasible  only  foe  families  of  certain  numerical  algo- 
ryrhms  having  similar  structure  and  identical  sets  of  input  and  output 
parameters.  In  this  case  the  base  class  is  used  for  late  binding  and  repla¬ 
cement  of  the  numerical  algorythms  on  the  run.  The  library  contains  only 
one  computational  class  which  is  a  prototype  of  the  approach  described. 

TPoisson 

The  service  class  providing  links  between  the  computational  module  and 
the  object  -oriented  base  classes  is  to  be  made  up  by  the  classes-descen- 
dants  TAbstrProcess. 

TAbstrProcess 

TDetermPrcs 

TMomentPrcs 

TStaticPrcs  -  TElectrostaticPrcs 

TDynamicPrcs 

THistoricPrcs 


However,  simple  and  laconic  algorythms  can  be  folly  encapsulated  into 
respective  classes  of  our  main  structure,  e.  g.  the  FFT  algorythm  can  be 
implemented  both  in  a  member-fonction  of  the  class  TGridVal:  Spectrum  (  ), 
and  in  a  member-fonction  of  the  class  THarmonic  Process::Spectrum  (TPhysVal*). 


^*^|H|f^|f^l^i^f^^l|^^t^^il|Hf^f^^^f^Hf^^i|^t^^H^^f^fW:*****iH|L***********************************/ 
j*  */ 

/*  ObjectOriented  PIC  for  C-H-  */ 

/*  Version  1.00  */ 

/*  Copyright  (c)  1993,  1994  The  Group  Compuetr  Simulation  */ 

/*  High  Current  Electronics  Institute  */ 

I*  Contract  SPC93-4035(F6170893W0612)  ♦/ 

/*  *! 

/*  Last  write  10-20-94  */ 

#if !  defined  CPS_MODEL_H) 

#define  _PS_MODEL_H 

#include  "ps_phval.h" 

#mclude  "ps_procs.h" 

/♦******♦  TAbstrModel - */ 

class  TAbstrModel 

{ 

public: 

int  idModel;  // 

IDSTRUCT*  Modelinfo;  // 
static  int  ModelsCount;  // 
int  ModelStatus;  // 

TGeomFrameWork  *GFW; 

TAbstrRegion  *Region; 

TAbstrProcess  ♦Processes; 

TAbstrPhysVal  ♦PhysVals; 
int  phvCount; 
int  prcCount; 
public: 

TAbstrModel  ()  {  ModelStatus  =  0;  phvCount  =  0;  prcCount  =  0;  }; 
virtual  -TAbstrModel  ()  {}; 

virtual  void  Prepare  ()  { } ; 

virtual  void  SetupModel  0  {}; 

virtual  void  Initialization  0  { }  1 

virtual  int  DefRegion  (TAbstrRegion*  Rgn); 

virtual  int  AddSubRegion  (TAbstrRegion*  Rgn)  {  return  0;  }; 

virtual  int  DefMesh  (TAbstrMesh*  Mesh)  =  0; 

virtual  int  AssignGeom  (TGeomFrameWork*  Geom)  =  0; 

virtual  int  DefProcess  (TAbstrProcess*  Pres); 
virtual  int  AddProcessToList  (TAbstrProcess*  Pres); 
virtual  int  DefPhysVal  (TAbstrPhysVal*  PhVal); 

virtual  int  AddPhysVal  (TAbstrPhysVal*  PhVal); 


virtual  void  Run  0=0;  H  Pure  virtual,  must  be  defined  in  Ancesors 

virtual  void  StopQ  =  0;  //  Pure  virtual,  must  be  defined  in  Ancesors 
int  Status  0  {  return  ModelStatus;  }; 

}; 

/♦**♦****  TSimple2DModel - *! 

class  TSimple2DModel :  public  TAbstrModel 

{ 

public: 

TAbstrMesh  *  mesh; 
public: 

TSimple2DModel  0; 

virtual  int  DefRegion  (TAbstrRegion*  Rgn); 
virtual  int  AddSubRegion  (TAbstrRegion*  Rgn); 
virtual  int  DefMesh  (TAbstrMesh*  Mesh); 
virtual  int  AssignGeom  (TGeomFrameWork*  Geom); 

virtual  int  DefProcess  (TAbstrProcess*  Pres); 
virtual  int  AddProcessToList  (TAbstrProcess*  Pres); 

virtual  void  Run  (); 
virtual  void  StopO; 

}; 

/********  TElectrostaticModel - */ 

class  TElectrostaticModel :  public  TSimple2DModel 

{ 

public: 

TEulerVal  *  charge; 

TEulerVal  *  potential; 

TEulerVal  *  Exl; 

TEulerVal  *  Ex2; 

TBeamVal  *  ebeam; 

THistorieVal  *  time; 
public: 

TElectrostaticModel  (); 

virtual  void  Prepare  (); 
virtual  void  SetupModel  (); 
virtual  void  Initialization  (); 

virtual  int  DefRegion  (TAbstrRegion*  Rgn); 
virtual  int  AddSubRegion  (TAbstrRegion*  Rgn); 

virtual  int  DefProcess  (TAbstrProcess*  Pres); 
virtual  int  AddProcessToList  (TAbstrProcess*  Pres); 

virtual  void  Run  0; 
virtual  void  Stop(); 

}; 


/*♦*****♦  TPiClassicModel 


>/ 


class  TPiClassicModel :  public  TAbstrModel 

{ 

public: 

TPiClassicModel  0  :  TAbstrModel  ()  {}; 

}; 

/****♦*♦*  TMixModel - ♦/ 

class  TMixModel  :  public  TPiClassicModel 
//  , virtual  public  TAbstrReglon 

{ 

public: 

TMixModelQ  :  TPiClassicModel  ()  {}; 

//  ,  TAbstrRegion  ()  {}; 

virtual  void  Run  0  {}; 
virtual  void  StopQ  {}; 

}; 

/* - */ 

#endif 

/***  PS_MODEL.CPP  ***! 

#mclude  "ps_model.h" 

y*:),«***4,****>K*  TAbstrModel - */ 

int  TAbstrModel ::  DefRegion  (TAbstrRegion*  Rgn) 

{ 

Region  =  Rgn;  return  (Region?  1  :  0); 

} 

int  TAbstrModel ::  DefProcess  (TAbstrProcess*  Pres) 

{ 

Processes  =  Pres;  return  (Processes  ?  prcCount=l  :  prcCount=0); 

} 

int  TAbstrModel ::  AddProcessToList  (TAbstrProcess*  Pres) 

{ 

if  (preCount  =  0)  return  DefProcess  (  Pres  ); 
else 

{  TAbstrProcess  *Current  =  Processes;  int  ent  =  0; 
while  ( Current->Next ) 

{  Current  =  Current->Next;  cnt++; 

} 

Current->Next  =  Pres;  int  added  =  ++cnt  -  preCount; 
return  (  added  ); 

} 

} 

int  TAbstrModel ::  DefPhysVal  (TAbstrPhysVal*  PhVal) 

{ 

PhysVals  =  PhVal;  return  (PhysVals  ?  phvCount=l  :  phvCount=0); 

} 


int  TAbstrModel ::  AddPhysVal  (TAbstrPhysVal*  PhVal) 

{ 

if  (phvCount  ==  0)  return  DefPhysVal  ( PhVal ); 
else 

{  TAbstrPhysVal  *Current  =  PhysVals;  int  cnt  =  0; 
while  ( Current->Next ) 

{  Current  =  Current->Next;  cnt++; 

} 

Current->Next  =  PhVal;  int  added  =  ++cnt  -  phvCount; 
return  ( added ); 

} 

} 

/*************  TSimple2DModel - */ 

TSiniple2DModel ::  TSimple2DModel  () 

:  TAbstrModel  () 

{ 

} 

int  TSiniple2DModel ::  DefRegion  (TAbstrRegion*  Rgn) 

{ 

if  (Rgn) 

{ if  ((Rgn->Type  <  20)  &&  (Rgn->Type  >  0)) 
return  (TAbstrModel:  :DefRegion  (Rgn)); 
else  return  0; 

}  else  return  0; 

} 

int  TSimple2DModel ::  AddSubRegion  (TAbstrRegion*  Rgn) 

{ 

return  0; 

} 

int  TSimple2DModel ::  DefProcess  (TAbstrProcess*  Pres) 

{ 

return  TAbstrModel ::  DefProcess  ( Pres  ); 

} 

int  TSimple2DModel ::  DefMesh  (TAbstrMesh*  Mesh) 

{ 

mesh  =  Mesh;  return  0; 

} 

int  TSimple2DModel ::  AssignGeom  (TGeomFrameWork*  Geom) 

{ 

GFW  =  Geom;  return  0; 

} 

int  TSimple2DModel ::  AddProcessToList  (TAbstrProcess*  Pres) 

{ 

return  TAbstrModel ::  AddProcessToList  (  Pres  ); 

} 


void  TSimple2DModel ::  Run  () 

{ 

TAbstrProcess  *Each  =  Processes;  int  cnt  =  0; 
while  ( Each ) 

{ 

Each  ->  Run  (); 

Each  =  Each->Next;  cnt++; 

} 

} 

void  TSiniple2DModel ::  Stop  () 

{ 

} 

/**♦♦♦♦**♦*♦♦+  TElectrostaticModel - */ 

TElectrostaticModel ::  TElectrostaticModel  0 
:  TSimple2DModel  () 

{ 

} 

int  TElectrostaticModel ::  DefRegion  (TAbstrRegion*  Rgn) 

{ 

Region  =  Rgn;  return  0; 

} 

int  TElectrostaticModel AddSubRegion  (TAbstrRegion*  Rgn) 

{ 

Region  =  Rgn;  return  0; 

} 

int  TElectrostaticModel ::  DefProcess  (TAbstrProcess*  Pres) 

{ 

Processes  =  Pres;  return  0; 

} 

int  TElectrostaticModel ::  AddProcessToList  (TAbstrProcess*  Pres) 

{ 

Processes  =  Pres;  return  0; 

} 

void  TElectrostaticModel ::  Prepare  () 

{ 

} 

void  TElectrostaticModel ::  SetupModel  () 

{ 

} 

void  TElectrostaticModel ::  Initialization  Q 

{ 

} 


void  TElectrostaticModel ::  Run  0 

{ 

} 

void  TElectrostaticModel ::  Stop  () 

{ 

} 

TPiClassicModel - */ 

/***  PS  POISS.CPP  ***/ 

#include  "ps_poiss.h" 

#include  "math.h" 

/********  TPoisson - */ 

TPoisson  ::  TPoisson  ( TGridVal*  Source,  TGridVal*  Result ) 

{ 

Mesh  =  Source->Mesh; 

N1  =  Mesh->N1; 

N2  =  Mesh->N2; 

Ms  =  Mesh->Ms;  N  =  N2; 

hi  =  Mesh->hl; 
h2  =  Mesh->h2; 

asph  =  hl/h2;  asph2  =  asph*asph; 
array  a  (N 1 );  //  scheme  coeffs  at  u[i- 1 J] 
array  b  (N 1 );  //  scheme  coeffs  at  u[i+ 1  J] 
array  el(Nl);  //  scheme  sub-coeffs  at  u[ij] 
array  q  (N 1 );  //  scheme  coeffs  at  RHS 
array  c  (N2);  //  scheme  coeffs  at  u[i J- 1  ] 
array  d  (N2);  //  scheme  coeffs  at  u[ij+l] 
array  ej(N2);  //  scheme  sub-coeffs  at  u[i  j] 

//  e  =  ei+ej 

matrix  Aq  (  Source->data,  N1 ,  N2  );  //  Charge  Density  f[i j] 

matrix  Ap  ( Result->data,  N 1 ,  N2  );  //  Potential  p[i J] 


array  v  (N1 );  //  work  array 

array  cosin2  (N2);  //  scheme  cosins 

} 

/* - */ 


void  TPoisson  ::  Prepare  ( ) 

{ 

inti,j; 

point  X,  h  (hi, h2); 
for  (i=0;  i<=Nl;  i++) 
for  (j=0;  i<=N2;  j++) 

{  X  =  (*Mesh)(iJ); 

(Mesh->GFW)->LaplaceShablon  ( x,  h, 
a  [i],  ei  [i],  b  [i], 

cDLejDLdDL  q[i]); 

} 

q  *=  epsO; 

TBoundaryType  btl  =  (Mesh->Xl)->boundl; 
TBoundaryType  bt2  =  (Mesh->Xl)->bound2; 

BoundaryConditions  (btl,  bt2); 


for(j=l;j<=Ms-l;j++) 

{  intk=  1  «(j-l); 

for  (i=l;  i<=k;  i++)  cosin2  [k+i-1]  =  2.0*cos(0.5*(2*i-l)*M_PI/k); 

} 

Ap  =  Aq  =  0.0; 


il  =  7;  i2  =  8; 

for  0=1;  j<=3;  j++)  Aq  [j]  =  1.0; 

} 

/* - */ 

void  TPoisson  ::  BoundaryConditions  (TBoundaryType  sbcl,  TBoundaryType  sbc2) 

{ 

switch  (sbcl) 

{ 

case  ConductingBnd  :  c  [0]  =1 .0;  b  [0]  =  0.0;  break; 
case  AxisymmetricBnd  ;  c  [0]  -=  a  [0];  break; 

default :  c  [0]  -=  a  [0];  break; 

} 

switch  (sbc2) 

{ 

case  ConductingBnd  :  c  [Nl]  =  1.0;  a  [Nl]  =  0.0;  break; 
caseOpenBnd  :c[Nl]  =  1.0;  a[Nl]  =  1.0;  break; 


default  :c[Nl]  =  1.0;  a[Nl]  =  0.0;  break; 

} 

} 

/♦ - *! 

TPoisson  ::~TPoisson  ( ) 

{ 

} 

/f - */ 


void  TPoisson  ::  GetSource  (  TGridVal  *  Src  ) 

{ 

Ap  =  0.0; 

Aq.assign  (Src->data); 

} 

/♦ - */ 

void  TPoisson  ::  TestSource  0 

{ 

for  (int  i=0;  i  <  Nl;  i++) 
for(intj=0;j<N2;j++) 

{ 

Ap[i]|j]  =  0.0; 

if  ((i  <=  i2)  &&  (i  >=  il)) 

{ 

ifO>0)  Aq[i][j]  =  Aq[i][j-l]; 
else  Aq[i][0]  =  Aq[i][N2-l]; 

} 

} 

} 

/♦ - */ 

void  TPoisson  ::  TridiagSolver  ( array&  vp,  num  dc,  num  ds  ) 

{ 

array  x  (Nl); 
array  y  (Nl); 


num  d; 


vp  *=  ds; 

x[l]=  b[0]/(ei[0]-dc); 
y[l]=  vp[0]/(ei[0]-dc); 
for  (int  i=l;  i  <N1;  i++) 

{ 

d  =  1.0  /  (ei  [i]  -  dc  -  a  [i]  *  X  [i]); 

X  [i+1]  =  d  *  b  [i]; 
y  [i+1]  =  d  *  (vp  [i]  +  a  [i]  *  y  [i]); 

} 

vp  [Nl]  =  (vp  [Nl]  +  a  [Nl]  *  y  [Nl])  /  (ei  [Nl]  -  dc  -  a  [Nl]  *  x  [Nl]) 

for  (i=Nl-l;  i  >=  0;  i--)  vp  [i]  =  x  [i+1]  *  vp  [i+1]  +  y  [i+1]; 

} 

/♦ - ♦/ 

void  TPoisson  ::  AdditiveFactorization  ( array  &  vs,  int  lev  ) 

{ 

array  wl(Nl);  wl=0.0;  //  (nO); 

array  w2  (vs);  //  ( vec ); 

num  signt  =  -1.0; 
int  j,  msl; 
num  dc,  de,  ds; 

msl  =  1  « lev; 
for(j=l;j<=msl;j++) 

{ 

de  =  0.5*(  dc  =  cosin2  [j+msl-1] );  -signt; 
ds  =  signt  *  sqrt(1.0  -  de*de)  /  msl; 

TridiagSolver  ( w2,  dc,  ds ); 

wl  +=w2; 

}; 

vs  =  wl; 

} 

/* - ♦/ 

void  TPoisson  ::  TopFactorization  (  array  &  vs  ) 

{  intj; 

for  (j=l ;  j  <=  (Ms-2);  j++)  AdditiveFactorization  (  vs,  j  ); 
for  (j=l;  j  <=  (Ms-2);  j++)  AdditiveFactorization  (  vs,  j  ); 
TridiagSolver  (  vs,  2.0  ); 

TridiagSolver  (  vs,  -2.0 ); 

} 

/♦ - */ 

void  TPoisson  PeriodicSolver  ( ) 

{ 

array  vw(Nl); 
int  level,  j,  h; 
int  Nm  =  1  « (Ms-1); 

// . Up  To  - 

for  ( level=l;  level  <  Ms;  level++) 

{ 

h  =  1  «  (level- 1); 

// . boundary 

vw  =  Aq  [0]  +  Aq  [h]  +  Aq  [N-h]; 

AdditiveFactorization  ( vw,  level ); 

Ap  [0]  +=  vw; 


Aq  [0]  =  2.0* Ap  [0]  +  Aq  [h]  +  Aq  [N-h]; 

// . regular 

for  ( j=2*h;  j  <=  N-2*h;  j  +=  2*h  ) 

{ 

vw  =  Aq  [j]  +  Ap  [j-h]  +  Ap  [j+h]; 

AdditiveFactorization  ( vw,  level ); 
Aplj]+=vw; 

Aq  [j]  =  2.0*Ap  [j]  +  Aq  [j-h]  +  Aq  [j+h]; 

} 

};  //level 

// . Top  Level  - 

vw  =  Aq  [0]  +  2.0* Ap  [Nm]; 

TopFactorization  (  vw ); 

Ap  [Nm]  +=  vw; 

Ap  [N]  =  Ap  [0]  +=  vw; 

// . Down  To  - 

for  ( level=Ms-l;  level  >  0;  level—) 

{  h  =  1  « (level- 1); 

for  ( j=h;  j  <=  N-h;  j  +=  2*h  ) 

{ 

vw  =  Aq  G]  +  Ap  G-h]  +  Ap  G+h]; 

AdditiveFactorization  ( vw,  level ); 
Ap  G]  +=  vw; 


};  //j 

};  //level 

}; 

/* - */ 


void  TPoisson  ::  DirichletSolver  ( ) 

{ 

array  vw  (Nl); 
int  level,],  h; 

for  ( level=l;  level  <  Ms;  level++) 

{  h=  1  «(level-l); 

for  ( j  =  2*h;  j  <=  N-2*h;  j  +=  2*h ) 

{ 

vw  =  Aq  G]  +  Ap  G-h]  +  Ap  G+h]; 

AdditiveFactorization  ( vw,  level ); 
Ap  G]  +=  vw; 

Aq  G]  =  2.0*Ap  G]  +  Aq  G-h]  +  Aq  G+h]; 

} 

}; 


// . level  down  to 

for  ( level  =  Ms;  level  >=  1;  level-) 

{  h=  1  «(level-l); 


for  ( j  =  h;  j  <=  N-h;  j  +=  2*h ) 

{ 

vw  =  Aq  G]  +  Ap  G-h]  +  Ap  G+h]; 

AdditiveFactorization  (  vw,  level ); 
Ap  G]  +=  vw; 

};  //j 


};  //level 

}; 

/♦ - ♦/ 


void  TPoisson  :: NeumannSoIver  () 

{ 

array  vw(Nl); 
int  level,  j,h; 

// . UpTo- 

for  ( level=l;  level  <  Ms;  level++) 

{ 

h  =  1  «  (level- 1); 

// . boundaries 

vw  =  Aq  [0]  +  2.0*Aq  [h];  //  0 

AdditiveFactorization  (  vw,  level ); 
Ap  [0]  +=  vw; 

Aq  [0]  =  2.0*Ap  [0]  +  2.0*Aq  [h]; 
vw  =  Aq  [N]  +  2.0*Aq  [N-h];  //  N 

AdditiveFactorization  (  vw,  level ); 
Ap  [N]  +=  vw; 

Aq  [N]  =  2.0*Ap  [N]  +  2.0*Aq  [N-h]; 

// . regular 

for(j=2*h;j<=N-2*h;j+=2*h) 

{ 

vw  =  Aq  [j]  +  Ap  [j-h]  +  Ap  [j+h]; 

AdditiveFactorization  (  vw,  level ); 
Ap  [j]  +=  vw; 

Aq  [J]  =  2.0*Ap  [j]  +  Aq  D-h]  +  Aq  [j+h]; 


} 

};  //level 

// . Top  Level  - 

vw  =  Aq  [N]  +  2.0*Ap  [0]; 

TopFactorization  ( vw ); 

Ap  [N]  =  Ap  [0]  +=  vw; 

// . Down  To  - 

for  ( level=Ms;  level  >  0;  level—) 

{  h  =  1  «  (level- 1); 


for  ( j=h;  j  <=  N-h;  j  +=  2*h ) 

{ 

vw  =  Aq  [j]  +  Ap  [j-h]  +  Ap  [j+h]; 

AdditiveFactorization  (  vw,  level ); 

Ap  D]  +=  vw; 

};  //j 

};  //level 

}; 

/********  TPoisson - */ 

/***  PS  PROCS.H  ***/ 

#if !  defined  C_PS_PROCS_H) 

#define  _PS_PROCS_H 

#include  "ps  regn.h" 

#include  "ps_mesh.h" 

#include  "ps_phval.h" 

class  TPoisson; 


//. - 

enum  TAlgorithm 


{ 

naDirectl  =  1, 
naDirect2, 
naSOR, 
naADE, 

}; 


/****  TAbstrProcess - *! 

class  TAbstrProcess 

{ 

protected: 

int  idPrcs; 

static  int  PrcsCount; 
int  PrcsStatus; 

IDSTRUCT  *PrcsInfo; 
public: 

TAbstrProcess  *  Next; 

TAbstrProcess  ():  PrcsStatus(O)  { -H-PrcsCount;  Next  =  0; }; 
virtual  ~TAbstrProcess  ()  {}; 

virtual  void  Prepare  ()  =  0;  //  Pure  virtual,  must  be  defined  in  Ancesors 

virtual  void  Run  ()  =  0;  //  Pure  virtual,  must  be  defined  in  Ancesors 

virtual  void  Stop()  =  0;  //  Pure  virtual,  must  be  defined  in  Ancesors 
int  Status  ()  {  return  PrcsStatus; }; 
static  int  GetCount  ()  {  return  PrcsCount;  }; 

}; 


/♦♦♦♦  TDetermPrcs - */ 

class  TDetermPrcs  :  public  TAbstrProcess 

{ 

public: 

TDetermPrcs  () :  TAbstrProcessQ  {}; 
virtual  void  Run  ()  {}; 
virtual  void  Stop()  {}; 


/****  TMomentPrcs - */ 

class  TMomentPrcs  :  public  TAbstrProcess 

{ 

public: 

TMomentPrcs  () :  TAbstrProcessQ  {  }; 
virtual  void  Run  Q  { }; 
virtual  void  StopQ  {  }; 


/****  TStaticPrcs  — - */ 

class  TStaticPrcs  :  public  TAbstrProcess 

{ 

public: 

TStaticPrcs  Q  :  TAbstrProcessQ  {}; 
virtual  void  Run  Q  {}; 


virtual  void  Stop()  {}; 


}; 

/****  TDynamicPrcs - */ 

class  TDynamicPrcs  :  public  TAbstrProcess 

{ 

public: 

TDynamicPrcs  () :  TAbstrProcess()  {}; 
virtual  void  Run  ()  {}; 
virtual  void  StopQ  {}; 


/****  THistoricPrcs - */ 

class  THistoricPrcs  :  public  TAbstrProcess 

{ 

public: 

THistoricPrcs  () :  TAbstrProcess()  {}; 
virtual  void  Run  ()  {}; 
virtual  void  StopQ  {}; 


/****  TElectrostatics - */ 

class  TElectrostaticPrcs  :  public  TStaticPrcs 

{ 

TApplicator  ShablonO; 

TPrcsApplicator  Shablon; 
public: 

TElectrostaticPrcs  (  TGridVal*  charge,  TGridVal*  scpot,  TAlgorithm  Algorithm  ); 
"TElectrostaticPrcs  ( ); 
virtual  void  Run  Q; 
virtual  void  Stop  Q; 

static  void  SOR  (int  i,  int  j)  //  probe  Successes  Over  Relaxation 

{p[i]D]  =  p[i][j]  +  f[i][j];}; 

void  ADE  (int  i,  int  j)  //  probe  Altem.Directions  Explicit 

{p[i]D]  =  p[i]D]  +  f[i]D];}; 

void  Iteration  ()  {  Mesh->LeapFrogNodes  (*this,  Shablon); }; 
void  StaticIterQ  {  Mesh->LeapFrogNodes  (  SOR  );  }; 

private: 

TPoisson  *  Poisson; 

TRegularMesh  *  Mesh; 
static  matrix  p; 
static  matrix  f; 

}; 

/^ - 

class  TCoulombFieldsPrcs  :  public  TStaticPrcs 

{ 

TApplicator  Shablon; 
public: 

TCoulombFieldsPrcs  ( TGridVal*  scpot,  TGridVal*  exl,  TGridVal*  ex2  ); 
-TCoulombFieldsPrcs  ( ); 


virtual  void  Run  (); 
virtual  void  Stop  (); 

void  GradXl  (int  i,  int  j) 

{  Exl  [i]U]  =  -(p  [i+l][j]  -  p  [i-l]D])  ♦  xhl;  }; 
void  GradX2  (int  i,  int  j) 

{  Ex2  [i]G]  =  -(p  [i]D+l]  -  P  [i]D-l])  *  xh2;  }; 

private: 

TRegularMesh  *  Mesh; 
matrix  p; 
matrix  Exl; 
matrix  Ex2; 
num  xhl,xh2; 

}; 

/* - */ 

#endif 

/***  PS  PROCS.CPP  ***/ 

#include  "ps_procs.h" 

#include  "ps_poiss.h" 

#include  "math.h" 


/********  TAbstrProcess - */ 

int  TAbstrProcess  ::  PrcsCount  =  0; 

/********  TElectrostatics - */ 

matrix  TElectrostaticPrcs ::  p; 
matrix  TElectrostaticPrcs ::  f; 

U - 


TElectrostaticPrcs ::  TElectrostaticPrcs  ( TGridVal  *  charge, 

TGridVal  *  scpot, 

TAlgorithm  Algorithm  ) 

:  TStaticPrcs  0, 

Shablon  ( 0  ), 

Poisson  ( 0 ) 

{ 

matrix  f  ( charge->data,  //  Charge  Density  f  [i  J] 

charge->Mesh->N  1 , 
charge->Mesh->N2 ); 

matrix  p  ( scpot->data,  //  Scalar  Potential  p  [i  j] 
scpot->Mesh->N  1 , 
scpot->Mesh->N2  ); 
switch  (  Algorithm  ) 

{ 

case  naDirectl  : 
case  naDirect2  : 

Poisson  =  new  TPoisson  ( charge,  scpot ); 

Poisson  ->  Prepare  0; 
break; 

case  naSOR : 

ShablonO  =  reinterpretcast  <TApplicator>(&TElectrostaticPrcs::SOR); 
//Shablon  =  reinterpretcast  <TPrcsApplicator>(&TElectrostaticPrcs::SOR); 
break; 

case  naADE : 

Shablon  =  reinterpretcast  <TPrcsApplicator>  (&TElectrostaticPrcs::ADE); 


break; 

} 

} 

//. - 


TElectrostaticPrcs  :;~TElectrostaticPrcs  ( ) 


{ 

if  (Poisson)  {  delete  Poisson;  Poisson  =  0; } 


} 

//. - 

void  TElectrostaticPrcs  ::  Run  (  ) 


{ 

if  (Poisson)  Poisson  ->  PeriodicSolver  (); 

} 

H - 


void  TElectrostaticPrcs  ::  Stop  ( ) 

{ 

} 


/********  TCoulombFieldsPrcs - */ 

TCoulombFieldsPrcs  ::  TCoulombFieldsPrcs  (  TGridVal  *  scpot, 
TGridVal  *  exl, 

TGridVal  *  ex2  ) 

:  TStaticPrcs  Oj 
Shablon  ( 0 ) 

{ 

matrix  p  ( scpot->data,  //  Scalar  Potential  p  [i  j] 
scpot->Mesh->Nl, 
scpot->Mesh->N2 ); 
matrix  Ex  1  ( ex  1  ->data,  // 

exl->Mesh->Nl, 
exl->Mesh->N2  ); 
matrix  Ex2  (  ex2->data,  // 
ex2->Mesh->Nl, 
ex2->Mesh->N2  ); 

} 

II. - 

TCoulombFieldsPrcs  ::~TCoulombFieldsPrcs  (  ) 

{ 

} 

U - 

void  TCoulombFieldsPrcs  ::  Run  (  ) 

{ 

} 

H - 

void  TCoulombFieldsPrcs  ::  Stop  (  ) 

{ 

} 


//• 


end. 


